Front page | perl.perl5.porters |
Postings from January 2014
On Thu, Jan 30, 2014 at 12:13:16AM -0800, bulk88 via RT wrote:
> > See attached patch. Each dir being searched that fails on Win32
> > results
> > in 10 I/O sys calls which I counted at 17 ms wall time, times 16 build
> > customize dirs that didn't match is an extra 272 ms of wall time
> > dealing
> > with the not found dirs during an @INC search.
That does sound extraordinarily slow. On my (admittedly fast) Linux laptop,
the following code takes approx 0.9 microsec per -f test:
my @path = (
"home/davem/perl5/git/bleed-davem/cpan/AutoLoader/lib",
"home/davem/perl5/git/bleed-davem/dist/Carp/lib",
"home/davem/perl5/git/bleed-davem/dist/PathTools",
"home/davem/perl5/git/bleed-davem/dist/PathTools/lib",
"home/davem/perl5/git/bleed-davem/dist/ExtUtils-Command/lib",
"home/davem/perl5/git/bleed-davem/dist/ExtUtils-Install/lib",
"home/davem/perl5/git/bleed-davem/cpan/ExtUtils-MakeMaker/lib",
"home/davem/perl5/git/bleed-davem/dist/ExtUtils-Manifest/lib",
"home/davem/perl5/git/bleed-davem/cpan/File-Path/lib",
"home/davem/perl5/git/bleed-davem/ext/re",
"home/davem/perl5/git/bleed-davem/dist/Term-ReadLine/lib",
"home/davem/perl5/git/bleed-davem/dist/Exporter/lib",
"home/davem/perl5/git/bleed-davem/ext/File-Find/lib",
"home/davem/perl5/git/bleed-davem/cpan/Text-Tabs/lib",
"home/davem/perl5/git/bleed-davem/dist/constant/lib",
"home/davem/perl5/git/bleed-davem/lib",
);
my $i = 0;
for my $file ("aaa" .."zzz") {
for (@path) {
$i++;
next unless -f "$_/NoSuchFile-$file.pmc" or -f "$_/NoSuchFile-$file.pm";
}
}
print "i=$i\n";
Perhaps this implies that's there's something sub-optimal in the way perl
does its @INC scanning under Win32?
--
Fire extinguisher (n) a device for holding open fire doors.
Thread Previous
|
Thread Next