From: Gurusamy Sarathy <gsar@engin.umich.edu>
Date: Wed, 11 Jun 1997 00:00:00 +0000 (+1200)
Subject: Memory Consumption of autosplit_lib_modules/sv_gets (workaround)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e7678aff2c64e56d00415c6b1a8885981ec7c92;p=p5sagit%2Fp5-mst-13.2.git

Memory Consumption of autosplit_lib_modules/sv_gets (workaround)
---

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index 2fd0cac..1bdcb78 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;