From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 27 Feb 2007 14:07:28 +0000 (+0000)
Subject: Disable the strict pragma before eval'ing selfloaded code.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ef97ff3ac7debd3bed610b024c1014bfc43b602;p=p5sagit%2Fp5-mst-13.2.git

Disable the strict pragma before eval'ing selfloaded code.

p4raw-id: //depot/perl@30418
---

diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm
index 34283b2..1136cf0 100644
--- a/lib/SelfLoader.pm
+++ b/lib/SelfLoader.pm
@@ -49,7 +49,10 @@ AUTOLOAD {
     }
     print STDERR "SelfLoader::AUTOLOAD eval: $SL_code\n" if DEBUG;
 
-    eval $SL_code;
+    {
+	no strict;
+	eval $SL_code;
+    }
     if ($@) {
         $@ =~ s/ at .*\n//;
         croak $@;
@@ -131,6 +134,7 @@ sub _load_stubs {
         }
     }
     push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype));
+    no strict;
     eval join('', @stubs) if @stubs;
 }