Rafael Garcia-Suarez wrote:
>
> maint isn't happy with this file as well.
I committed a general fix :
It doesn't seem to break deparsing of more regular variables.
Change 25005 by [EMAIL PROTECTED] on 2005/06/28 11:17:30
B::Deparse was chocking on variable names with colons (like foo::::bar)
Affected files ...
... //depot/perl/ext/B/B/Deparse.pm#155 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#155 (text) ====
@@ -1225,7 +1225,7 @@
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 {
+foo::::::bar;
