X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/433644eed8ac93495dfaad947c1503ce219b414b..6ec73527899164b78a87bc4fc6b180ea6f8087b5:/dist/B-Deparse/Deparse.pm?ds=inline

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index abe18a8..7936fcd 100644
--- a/dist/B-Deparse/Deparse.pm
+++ b/dist/B-Deparse/Deparse.pm
@@ -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);