diff options
Diffstat (limited to 'ext/B/B/Deparse.pm')
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index c398ddb309..1407b38e5a 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3230,7 +3230,7 @@ sub check_proto { # An unbackslashed @ or % gobbles up the rest of the args 1 while $proto =~ s/(?<!\\)([@%])[^\]]+$/$1/; while ($proto) { - $proto =~ s/^(\\?[\$\@&%*]|\\\[[\$\@&%*]+\]|;)//; + $proto =~ s/^(\\?[\$\@&%*_]|\\\[[\$\@&%*]+\]|;)//; my $chr = $1; if ($chr eq "") { return "&" if @args; @@ -3242,7 +3242,7 @@ sub check_proto { } else { $arg = shift @args; last unless $arg; - if ($chr eq "\$") { + if ($chr eq "\$" || $chr eq "_") { if (want_scalar $arg) { push @reals, $self->deparse($arg, 6); } else { |