B::Deparse was chocking on variable names with colons (like foo::::bar)

p4raw-id: //depot/perl@25005

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index c2a24a0..1f00928 100644 (file)
--- 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 {