From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 17 Feb 2002 23:58:59 +0000 (+0100)
Subject: two fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb725297bbdca15058c153ddb7187994bea0a106;p=p5sagit%2Fp5-mst-13.2.git

two fixes
   Message-Id: <20020217235859.A32513@rafael>

p4raw-id: //depot/perl@14736
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 912613d..fcb62c9 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -796,7 +796,8 @@ sub deparse_format {
 		= @$self{qw'curstash warnings hints'};
     my $op = $form->ROOT;
     my $kid;
-    return "\f." if $op->first->name eq 'stub';
+    return "\f." if $op->first->name eq 'stub'
+                || $op->first->name eq 'nextstate';
     $op = $op->first->first; # skip leavewrite, lineseq
     while (not null $op) {
 	$op = $op->sibling; # skip nextstate
@@ -1969,6 +1970,7 @@ sub listop {
     my $kid = $op->first->sibling;
     return $name if null $kid;
     my $first;
+    $name = "socketpair" if $name eq "sockpair";
     if (defined prototype("CORE::$name")
 	&& prototype("CORE::$name") =~ /^;?\*/
 	&& $kid->name eq "rv2gv") {