diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-07-25 21:09:00 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-27 08:59:58 +0000 |
| commit | e3d0cac0c3bf9ec77cb3e2fc362639f009d309e4 (patch) | |
| tree | 337c2dbaadc3b48e57e882b4b678eecc53c92aec /lib/AutoLoader.pm | |
| parent | 538feb029e0f72a0968673b94ed4dca853d5473f (diff) | |
| download | perl-e3d0cac0c3bf9ec77cb3e2fc362639f009d309e4.tar.gz | |
decrease memory footprint of standard modules
Message-Id: <199907260509.BAA26303@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@3794
Diffstat (limited to 'lib/AutoLoader.pm')
| -rw-r--r-- | lib/AutoLoader.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index 66c764f9d8..8e15c1f60c 100644 --- a/lib/AutoLoader.pm +++ b/lib/AutoLoader.pm @@ -1,17 +1,17 @@ package AutoLoader; -use vars qw(@EXPORT @EXPORT_OK $VERSION); +# use vars qw(@EXPORT @EXPORT_OK $VERSION); my $is_dosish; my $is_vms; BEGIN { require Exporter; - @EXPORT = (); - @EXPORT_OK = qw(AUTOLOAD); + @EXPORT = @EXPORT = (); + @EXPORT_OK = @EXPORT_OK = qw(AUTOLOAD); $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32'; $is_vms = $^O eq 'VMS'; - $VERSION = '5.56'; + $VERSION = $VERSION = '5.57'; } AUTOLOAD { @@ -103,7 +103,10 @@ sub import { # Export symbols, but not by accident of inheritance. # - Exporter::export $pkg, $callpkg, @_ if $pkg eq 'AutoLoader'; + if ($pkg eq 'AutoLoader') { + local $Exporter::ExportLevel = 1; + Exporter::import $pkg, @_; + } # # Try to find the autosplit index file. Eg., if the call package |