Deparse $#{/} correctly

[perl5.git] / dist / B-Deparse / Deparse.pm

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index abe18a8..7936fcd 100644 (file)
--- a/dist/B-Deparse/Deparse.pm
+++ b/dist/B-Deparse/Deparse.pm
@@ -1302,6 +1302,9 @@ sub stash_variable {
            return "$prefix\{$name}";
        }
     }
            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);
 
     my $v = ($prefix eq '$#' ? '@' : $prefix) . $name;
     return $prefix .$self->{'curstash'}.'::'. $name if $self->lex_in_scope($v);