From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 1 Dec 2001 18:18:34 +0000 (+0000)
Subject: (replaced by #13556)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c8d2b2109deeb6d2652b240018487f91c577a6c;p=p5sagit%2Fp5-mst-13.2.git

(replaced by #13556)

If we are inside an eval, let's be silent about
separate symbols and just croak() in the end.

p4raw-id: //depot/perl@13408
---

diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm
index abdae6c..76a5bad 100644
--- a/lib/Exporter/Heavy.pm
+++ b/lib/Exporter/Heavy.pm
@@ -126,8 +126,13 @@ sub heavy_export {
 			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++;
 		}
 	    }