perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject svn commit: r331630 - /perl/modperl/trunk/xs/ModPerl/Util/Util_pm
Date Mon, 07 Nov 2005 22:46:56 GMT
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



Mime
View raw message