diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-14 16:15:09 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-14 16:15:09 +0000 |
| commit | a5871d1a83cd3d5c7292135cbb30a336a8552ab0 (patch) | |
| tree | e056f664b56c544259b77891801390c472109ed0 /lib/base.pm | |
| parent | 841a92052a6767bd088da257cef4b0db4ccd123d (diff) | |
| parent | 20408e3ccf502b6ce4033d8203710405ec9ef8f6 (diff) | |
| download | perl-a5871d1a83cd3d5c7292135cbb30a336a8552ab0.tar.gz | |
Integrate win32 branch into mainline
p4raw-id: //depot/perl@969
Diffstat (limited to 'lib/base.pm')
| -rw-r--r-- | lib/base.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/base.pm b/lib/base.pm index e20a64bc9a..4c4fb8b86b 100644 --- a/lib/base.pm +++ b/lib/base.pm @@ -34,6 +34,9 @@ sub import { foreach my $base (@_) { unless (defined %{"$base\::"}) { eval "require $base"; + # Only ignore "Can't locate" errors from our eval require. + # Other fatal errors (syntax etc) must be reported. + die if $@ && $@ !~ /^Can't locate .*? at \(eval /; unless (defined %{"$base\::"}) { require Carp; Carp::croak("Base class package \"$base\" is empty.\n", |