diff options
| author | Peter Scott <Peter@PSDT.com> | 2000-08-18 05:44:37 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-18 21:41:45 +0000 |
| commit | 68cc8748cd09408eb4c1922bf0cb3edbeb4cec80 (patch) | |
| tree | 3c174e78ee80cb1c1c5d6e011f963daaa30a5db6 | |
| parent | d12db45c09c7b1994500d95b22b3635ca28bfffb (diff) | |
| download | perl-68cc8748cd09408eb4c1922bf0cb3edbeb4cec80.tar.gz | |
Typo in pp_complement().
Subject: [PATCH perl-current] Deparse
Message-Id: <4.3.2.7.2.20000818124024.00ba2be0@psdt.com>
p4raw-id: //depot/perl@6706
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 0e876400f2..c67ab432a4 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -847,7 +847,7 @@ sub pp_i_preinc { pfixop(@_, "++", 23) } sub pp_i_predec { pfixop(@_, "--", 23) } sub pp_i_postinc { maybe_targmy(@_, \&pfixop, "++", 23, POSTFIX) } sub pp_i_postdec { maybe_targmy(@_, \&pfixop, "--", 23, POSTFIX) } -sub pp_complement { maybe_targmy(@_. \&pfixop, "~", 21) } +sub pp_complement { maybe_targmy(@_, \&pfixop, "~", 21) } sub pp_negate { maybe_targmy(@_, \&real_negate) } sub real_negate { |