Change 13408 by jhi@alpha on 2001/12/01 18:18:34
If we are inside an eval, let's be silent about
separate symbols and just croak() in the end.
Affected files ...
.... //depot/perl/lib/Exporter/Heavy.pm#13 edit
Differences ...
==== //depot/perl/lib/Exporter/Heavy.pm#13 (text) ====
Index: perl/lib/Exporter/Heavy.pm
--- perl/lib/Exporter/Heavy.pm.~1~ Sat Dec 1 11:30:05 2001
+++ perl/lib/Exporter/Heavy.pm Sat Dec 1 11:30:05 2001
@@ -126,8 +126,13 @@
last;
}
} elsif ($sym !~ s/^&// || !$export_cache->{$sym}) {
- require Carp;
- Carp::carp(qq["$sym" is not exported by the $pkg module]);
+ unless ($^S) {
+ # If we are trying to trap import of non-existent
+ # symbols using eval, let's be silent for now and
+ # just croak in the end.
+ require Carp;
+ Carp::carp(qq["$sym" is not exported by the $pkg module]);
+ }
$oops++;
}
}
End of Patch.
