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, 16 insertions, 0 deletions

diff --git a/lib/subs.pm b/lib/subs.pm
new file mode 100644
index 0000000000..8b5835770f
--- /dev/null
+++ b/lib/subs.pm
@@ -0,0 +1,16 @@
+package subs;
+
+require 5.000;
+
+$ExportLevel = 0;
+
+sub import {
+    my $callpack = caller;
+    my $pack = shift;
+    my @imports = @_;
+    foreach $sym (@imports) {
+	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
+    }
+};
+
+1;