From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 28 Jun 2005 11:17:30 +0000 (+0000)
Subject: B::Deparse was chocking on variable names with colons (like foo::::bar)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=644838b906239fcab75e1867c94bef47bac45e81;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {