From: Peter Scott <Peter@PSDT.com>
Date: Fri, 18 Aug 2000 12:44:37 +0000 (-0700)
Subject: Typo in pp_complement().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68cc8748cd09408eb4c1922bf0cb3edbeb4cec80;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 0e87640..c67ab43 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 {