diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-18 00:58:59 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-18 01:23:00 +0000 |
| commit | fb725297bbdca15058c153ddb7187994bea0a106 (patch) | |
| tree | e9f5aeba7eed86b164a2c72afca716d299f2fd74 /ext/B | |
| parent | 8f21750f6aa17cd46bfa0d30fb112d2e134c67ce (diff) | |
| download | perl-fb725297bbdca15058c153ddb7187994bea0a106.tar.gz | |
two fixes
Message-Id: <20020217235859.A32513@rafael>
p4raw-id: //depot/perl@14736
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 912613dbdd..fcb62c98f9 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") { |