develooper 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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About