From: Jesse Glick Date: Thu, 2 Jan 1997 23:18:01 +0000 (+1200) Subject: SelfLoader: fix prototype pattern, rename intrusive lexical X-Git-Tag: accepted/trunk/20130322.191538~38041^2~65 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c76750589503afb0145298a66c155795ba686e77;p=platform%2Fupstream%2Fperl.git SelfLoader: fix prototype pattern, rename intrusive lexical Signed-off-by: Jesse Glick --- diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm index 8d80b57..f93841c 100644 --- a/lib/SelfLoader.pm +++ b/lib/SelfLoader.pm @@ -3,25 +3,26 @@ use Carp; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(AUTOLOAD); -$VERSION = 1.06; sub Version {$VERSION} +$VERSION = 1.07; sub Version {$VERSION} $DEBUG = 0; my %Cache; # private cache for all SelfLoader's client packages AUTOLOAD { print STDERR "SelfLoader::AUTOLOAD for $AUTOLOAD\n" if $DEBUG; - my $code = $Cache{$AUTOLOAD}; - unless ($code) { + my $SL_code = $Cache{$AUTOLOAD}; + unless ($SL_code) { # Maybe this pack had stubs before __DATA__, and never initialized. # Or, this maybe an automatic DESTROY method call when none exists. $AUTOLOAD =~ m/^(.*)::/; SelfLoader->_load_stubs($1) unless exists $Cache{"${1}::) and $line !~ m/^__END__/) { - if ($line =~ m/^sub\s+([\w:]+)\s*(\([\$\@\;\%\\]*\))?/) { # A sub declared + if ($line =~ m/^sub\s+([\w:]+)\s*(\([\\\$\@\%\&\*\;]*\))?/) { push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype)); $protoype = $2; @lines = ($line);