OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-tools Date: 24-Jul-2006 16:52:44
Branch: HEAD Handle: 2006072415524400
Modified files:
openpkg-tools/cmd index.pl
Log:
slight run-time performance increase
Summary:
Revision Changes Path
1.9 +2 -2 openpkg-tools/cmd/index.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-tools/cmd/index.pl
============================================================================
$ cvs diff -u -r1.8 -r1.9 index.pl
--- openpkg-tools/cmd/index.pl 24 Jul 2006 14:51:15 -0000 1.8
+++ openpkg-tools/cmd/index.pl 24 Jul 2006 14:52:44 -0000 1.9
@@ -928,9 +928,9 @@
my ($fn) = @_;
my ($fh) = new FileHandle "< $fn"
or die "FATAL: cannot read '$fn' ($!)\n";
- my (@l) = <$fh>; # FIXME: optimize
+ my $l; { local $/; $l = <$fh>; }
$fh->close;
- return join('', @l);
+ return $l;
}
# create relative path by stripping instance prefix
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [email protected]
