This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse $#{/} correctly
[perl5.git] / dist / B-Deparse / Deparse.pm
index abe18a8..7936fcd 100644 (file)
@@ -1302,6 +1302,9 @@ sub stash_variable {
            return "$prefix\{$name}";
        }
     }
+    if ($prefix eq '$#' && $name =~ /^[^\w+-]$/) {
+       return "\$#{$name}";
+    }
 
     my $v = ($prefix eq '$#' ? '@' : $prefix) . $name;
     return $prefix .$self->{'curstash'}.'::'. $name if $self->lex_in_scope($v);