Front page | perl.perl5.porters |
Postings from October 2003
Re: [perl #24350]
Thread Next
From:
Michael.Jacob
Date:
October 30, 2003 02:50
Subject:
Re: [perl #24350]
Message ID:
OF40D909C1.F41C2C34-ONC1256DCF.0034880F@schering.de
Sorry, for not looking at the patch before Paul sent it in... ;)
Here's my suggestion:
- die if $@ && $@ !~ /^Can't locate .*? at (eval /;
+ my $e = $@; # needed?
+ die if $e && $e !~ /^Can't locate .*? at (eval /;
unless (%{"$base::"}) {
require Carp;
+ if ($e) {
+ Carp::croak($e.<<ERROR);
+ (Perhaps you need to 'use' the module which defines that base class
first.)
+ ERROR
+ } else {
Carp::croak(<<ERROR);
Base class package "$base" is empty.
(Perhaps you need to 'use' the module which defines that base class
first.)
ERROR
So it will propagate Perl's error message if the file could not be loaded
AND is not there.
Thread Next
-
Re: [perl #24350]
by Michael.Jacob