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 (file)
--- 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 {