This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Typo in pp_complement().
authorPeter Scott <Peter@PSDT.com>
Fri, 18 Aug 2000 12:44:37 +0000 (05:44 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 18 Aug 2000 21:41:45 +0000 (21:41 +0000)
Subject: [PATCH perl-current] Deparse
Message-Id: <4.3.2.7.2.20000818124024.00ba2be0@psdt.com>

p4raw-id: //depot/perl@6706

ext/B/B/Deparse.pm

index 0e87640..c67ab43 100644 (file)
@@ -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 {