From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 18 Jan 2009 22:15:36 +0000 (+0100)
Subject: Make B::Deparse handle the _ prototype
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21b521587093ec1c2a5c9d95eb360a923a70e57f;p=p5sagit%2Fp5-mst-13.2.git

Make B::Deparse handle the _ prototype

This notably fixes:
[perl #62484] B::Deparse hangs on called subs with $;_ prototype
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index c398ddb..1407b38 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 {