diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-11-10 05:24:42 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-11 16:13:19 -0800 |
| commit | 5deb1341767b498cac376b4d0fcf168a328c2d94 (patch) | |
| tree | 0989595f2efcb78299c1a05be885f30dba2ac349 /lib/B/Deparse.pm | |
| parent | d9d770874f926b7b4990948b7eecca98fde9e695 (diff) | |
| download | perl-5deb1341767b498cac376b4d0fcf168a328c2d94.tar.gz | |
Simplify code for deparsing socketpair
Instead of fixing a typo programmatically, just spell it correctly to
begin with. This should make things just slightly faster.
Diffstat (limited to 'lib/B/Deparse.pm')
| -rw-r--r-- | lib/B/Deparse.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index 3800171c36..31ad998b10 100644 --- a/lib/B/Deparse.pm +++ b/lib/B/Deparse.pm @@ -2664,7 +2664,6 @@ sub listop { : $self->keyword($name) . '()' x (7 < $cx); } my $first; - $name = "socketpair" if $name eq "sockpair"; my $fullname = $self->keyword($name); my $proto = prototype("CORE::$name"); if ( @@ -2763,7 +2762,7 @@ sub pp_fcntl { listop(@_, "fcntl") } sub pp_ioctl { listop(@_, "ioctl") } sub pp_flock { maybe_targmy(@_, \&listop, "flock") } sub pp_socket { listop(@_, "socket") } -sub pp_sockpair { listop(@_, "sockpair") } +sub pp_sockpair { listop(@_, "socketpair") } sub pp_bind { listop(@_, "bind") } sub pp_connect { listop(@_, "connect") } sub pp_listen { listop(@_, "listen") } |