--- ./configpm~	Tue Nov 25 06:45:56 1997
+++ ./configpm	Tue Mar  3 16:56:26 1998
@@ -18,13 +18,25 @@ $config_pm = $ARGV[0] || 'lib/Config.pm'
 open CONFIG, ">$config_pm" or die "Can't open $config_pm: $!\n";
 $myver = $];
 
-print CONFIG <<"ENDOFBEG";
+print CONFIG <<'ENDOFBEG_NOQ', <<"ENDOFBEG";
 package Config;
 use Exporter ();
-\@ISA = (Exporter);
-\@EXPORT = qw(%Config);
-\@EXPORT_OK = qw(myconfig config_sh config_vars);
+@ISA = (Exporter);
+@EXPORT = qw(%Config);
+@EXPORT_OK = qw(myconfig config_sh config_vars);
 
+# Define our own import method to avoid pulling in the full Exporter:
+sub import {
+  my $pkg = shift;
+  @_ = @EXPORT unless @_;
+  my @func = grep {$_ ne '%Config'} @_;
+  Exporter::import('Config', @func) if @func;
+  return if @func == @_;
+  my $callpkg = caller(0);
+  *{"$callpkg\::Config"} = \%Config;
+}
+
+ENDOFBEG_NOQ
 \$] == $myver
   or die "Perl lib version ($myver) doesn't match executable version (\$])";
 
--- ./lib/SelfLoader.pm~	Tue Nov 25 06:52:36 1997
+++ ./lib/SelfLoader.pm	Tue Mar  3 00:25:56 1998
@@ -1,5 +1,5 @@
 package SelfLoader;
-use Carp;
+# use Carp;
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(AUTOLOAD);
@@ -8,6 +8,8 @@ $DEBUG = 0;
 
 my %Cache;      # private cache for all SelfLoader's client packages
 
+sub croak { require Carp; goto &Carp::croak }
+
 AUTOLOAD {
     print STDERR "SelfLoader::AUTOLOAD for $AUTOLOAD\n" if $DEBUG;
     my $SL_code = $Cache{$AUTOLOAD};
@@ -90,7 +92,8 @@ sub _load_stubs {
 sub _add_to_cache {
     my($self,$fullname,$pack,$lines, $protoype) = @_;
     return () unless $fullname;
-    carp("Redefining sub $fullname") if exists $Cache{$fullname};
+    (require Carp), Carp::carp("Redefining sub $fullname")
+      if exists $Cache{$fullname};
     $Cache{$fullname} = join('', "package $pack; ",@$lines);
     print STDERR "SelfLoader cached $fullname: $Cache{$fullname}" if $DEBUG;
     # return stub to be eval'd
--- ./lib/AutoLoader.pm~	Tue Nov 25 06:52:16 1997
+++ ./lib/AutoLoader.pm	Tue Mar  3 01:57:00 1998
@@ -1,10 +1,11 @@
 package AutoLoader;
 
-use vars qw(@EXPORT @EXPORT_OK);
+#use vars qw(@EXPORT @EXPORT_OK);
 
 BEGIN {
     require Exporter;
-    @EXPORT = ();
+    @EXPORT = @EXPORT = ();
+    @EXPORT_OK = @EXPORT_OK;
     @EXPORT_OK = qw(AUTOLOAD);
 }
 
@@ -59,7 +60,7 @@ sub import {
     # Export symbols, but not by accident of inheritance.
     #
 
-    Exporter::export $pkg, $callpkg, @_ if $pkg eq 'AutoLoader';
+    Exporter::import $pkg, @_ if $pkg eq 'AutoLoader';
 
     #
     # Try to find the autosplit index file.  Eg., if the call package
--- ./ext/POSIX/POSIX.pm~	Tue Nov 25 06:49:16 1997
+++ ./ext/POSIX/POSIX.pm	Tue Mar  3 02:03:20 1998
@@ -1,6 +1,7 @@
 package POSIX;
 
-use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT_OK $AUTOLOAD); 
+# use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT_OK $AUTOLOAD); 
+(@ISA, $VERSION,%EXPORT_TAGS,@EXPORT_OK,$AUTOLOAD) = ();
 
 use Carp;
 use AutoLoader;
@@ -161,7 +162,10 @@ $VERSION = "1.02" ;
 
 );
 
-Exporter::export_tags();
+# Exporter::export_tags();
+for (values %EXPORT_TAGS) {
+  push @EXPORT, @$_;
+}
 
 @EXPORT_OK = qw(
     closedir opendir readdir rewinddir
