This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
give Win32 miniperl a real getcwd for build perf
authorDaniel Dragan <bulk88@hotmail.com>
Thu, 10 Dec 2015 23:35:34 +0000 (18:35 -0500)
committerTony Cook <tony@develop-help.com>
Wed, 6 Jan 2016 23:25:16 +0000 (10:25 +1100)
commit8f1332ed63eb9a2061410b390e383415d456a7f4
tree5aacbffde70e7be508d711fe7961691d54fc9352
parenta98780ae0779fdda8d6c2bc706475093056a92bf
give Win32 miniperl a real getcwd for build perf

getcwd() is now 605x faster for Win32 miniperl.
------------------------------
use Cwd;
Cwd::getcwd() for(0..10000);
------------------------------
before
C:\p523\src\win32>timeit -f t.dat ..\miniperl -I..\lib t.pl
Version Number:   Windows NT 6.1 (Build 7601)
Exit Time:        2:03 am, Thursday, December 10 2015
Elapsed Time:     0:01:12.438
Process Time:     0:00:14.289
System Calls:     5802378
Context Switches: 1455066
Page Faults:      5250724
Bytes Read:       76809789
Bytes Written:    5278717
Bytes Other:      10407004
after
C:\p523\src\win32>timeit -f t.dat ..\miniperl -I..\lib t.pl
Version Number:   Windows NT 6.1 (Build 7601)
Exit Time:        1:20 am, Thursday, December 10 2015
Elapsed Time:     0:00:00.119
Process Time:     0:00:00.124
System Calls:     4658
Context Switches: 540
Page Faults:      1127
Bytes Read:       99074
Bytes Written:    0
Bytes Other:      12888
15 files changed:
Porting/Maintainers.pl
cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/NoXS.pm
dist/PathTools/Cwd.pm
dist/PathTools/lib/File/Spec.pm
dist/PathTools/lib/File/Spec/AmigaOS.pm
dist/PathTools/lib/File/Spec/Cygwin.pm
dist/PathTools/lib/File/Spec/Epoc.pm
dist/PathTools/lib/File/Spec/Functions.pm
dist/PathTools/lib/File/Spec/Mac.pm
dist/PathTools/lib/File/Spec/OS2.pm
dist/PathTools/lib/File/Spec/Unix.pm
dist/PathTools/lib/File/Spec/VMS.pm
dist/PathTools/lib/File/Spec/Win32.pm
t/porting/customized.dat
win32/win32.c