diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-28 11:17:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-28 11:17:30 +0000 |
| commit | 644838b906239fcab75e1867c94bef47bac45e81 (patch) | |
| tree | 1aaf4b589d7756a54318b476b4e134e941e3feca /ext/B | |
| parent | 381aa1c34573c3084d65a3f45ffcdc24a58d6a53 (diff) | |
| download | perl-644838b906239fcab75e1867c94bef47bac45e81.tar.gz | |
B::Deparse was chocking on variable names with colons (like foo::::bar)
p4raw-id: //depot/perl@25005
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index c2a24a00de..1f00928d02 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -1225,7 +1225,7 @@ Carp::confess() unless ref($gv) eq "B::GV"; my $name = $gv->SAFENAME; if (($stash eq 'main' && $globalnames{$name}) or ($stash eq $self->{'curstash'} && !$globalnames{$name}) - or $name =~ /^[^A-Za-z_]/) + or $name =~ /^[^A-Za-z_:]/) { $stash = ""; } else { |