perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 3 insertions, 28 deletions

diff --git a/autosplit b/autosplit
index a57b6feaa1..7d8e1d22d7 100755
--- a/autosplit
+++ b/autosplit
@@ -1,29 +1,4 @@
 #!./miniperl
-
-chdir "lib" if -d "lib";
-
-$package = shift;
-
-$filename = "$package.pm";
-open(IN, $filename) || die "Can't open $filename: $!\n";
-while (<IN>) {
-    last if /^__END__/;
-}
-$_ or die "Can't find __END__ in $filename\n";
-
-mkdir "auto/$package", 0777 unless -d "auto/$package";
-while (<IN>) {
-    if (/^sub ([\w:]+)/) {
-	$name = $1;
-	print OUT "1;\n";
-	$newname = "auto/$package/$name.al";
-	open(OUT, ">$newname") or warn "Can't create $newname: $!\n";
-	print OUT <<"END";
-# NOTE:  Derived from $package.pm.  Changes made here will be lost.
-package $package;
-
-END
-    }
-    print OUT $_;
-}
-print OUT "1;\n";
+BEGIN { unshift @INC, "lib" }
+use AutoSplit;
+autosplit_lib_modules(@ARGV);