Author: gozer
Date: Mon Nov 7 14:46:54 2005
New Revision: 331630
URL: http://svn.apache.org/viewcvs?rev=331630&view=rev
Log:
Some things might be tied and throw runtime errors, so protect
ourselves with an eval
Reported-By: Gerald Richter
Modified:
perl/modperl/trunk/xs/ModPerl/Util/Util_pm
Modified: perl/modperl/trunk/xs/ModPerl/Util/Util_pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/ModPerl/Util/Util_pm?rev=331630&r1=331629&r2=331630&view=diff
==============================================================================
--- perl/modperl/trunk/xs/ModPerl/Util/Util_pm (original)
+++ perl/modperl/trunk/xs/ModPerl/Util/Util_pm Mon Nov 7 14:46:54 2005
@@ -22,6 +22,7 @@
my $fullname = join '::', $package, $_;
# code/hash/array/scalar might be imported make sure the gv
# does not point elsewhere before undefing each
+ eval {
if (%$fullname) {
*{$fullname} = {};
undef %$fullname;
@@ -51,6 +52,7 @@
close $fullname;
}
}
+ };
}
#Wipe from %INC
