diff options
| author | Brent Dax <brentdax@cpan.org> | 2002-07-25 22:41:52 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-05 15:04:54 +0000 |
| commit | 939f497f43f5519aac02a976b10652bc9a92e1d9 (patch) | |
| tree | e88a528a16616c2f136f31b2c37b08e237b08799 /ext/B | |
| parent | 4212bb3c3de71b706d33dc3106163e2fefe3958a (diff) | |
| download | perl-939f497f43f5519aac02a976b10652bc9a92e1d9.tar.gz | |
Defined-or patch (cleaned up)
From: "Brent Dax" <brentdax@cpan.org>
Message-id: <000001c234a1$d1ca72c0$6501a8c0@deepblue>
p4raw-id: //depot/perl@17682
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 924f4366d6..c98589691c 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -1951,6 +1951,7 @@ sub logop { sub pp_and { logop(@_, "and", 3, "&&", 11, "if") } sub pp_or { logop(@_, "or", 2, "||", 10, "unless") } +sub pp_dor { logop(@_, "err", 2, "//", 10, "") } # xor is syntactically a logop, but it's really a binop (contrary to # old versions of opcode.pl). Syntax is what matters here. @@ -1967,7 +1968,8 @@ sub logassignop { } sub pp_andassign { logassignop(@_, "&&=") } -sub pp_orassign { logassignop(@_, "||=") } +sub pp_orassign { logassignop(@_, "||=") } +sub pp_dorassign { logassignop(@_, "//=") } sub listop { my $self = shift; |