diff options
| author | Gurusamy Sarathy <gsar@engin.umich.edu> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | 6e7678aff2c64e56d00415c6b1a8885981ec7c92 (patch) | |
| tree | 9196ed2932d9579bf64f6e091759d08602c2d6d1 | |
| parent | 720cbd8665fdedebd0f7cae0dc4967e04f04a521 (diff) | |
| download | perl-6e7678aff2c64e56d00415c6b1a8885981ec7c92.tar.gz | |
Memory Consumption of autosplit_lib_modules/sv_gets (workaround)
| -rw-r--r-- | lib/AutoSplit.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index 2fd0cac32d..1bdcb78e5b 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -126,7 +126,7 @@ sub autosplit{ sub autosplit_lib_modules{ my(@modules) = @_; # list of Module names - foreach(@modules){ + while($_ = shift @modules){ s#::#/#g; # incase specified as ABC::XYZ s|\\|/|g; # bug in ksh OS/2 s#^lib/##; # incase specified as lib/*.pm @@ -147,6 +147,7 @@ sub autosplit_lib_modules{ sub autosplit_file{ my($filename, $autodir, $keep, $check_for_autoloader, $check_mod_time) = @_; my(@names); + local($_); # where to write output files $autodir = "lib/auto" unless $autodir; |