warn on C<my($foo,$foo)>

[p5sagit/p5-mst-13.2.git] / opcode.pl

diff --git a/opcode.pl b/opcode.pl
index f2ed795..f9c7503 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -432,7 +432,7 @@ anonhash    anonymous hash          ck_fun          ms@     L
 
 splice         splice                  ck_fun          m@      A S? S? L
 push           push                    ck_fun          imst@   A L
-pop            pop                     ck_shift        si%     A
+pop            pop                     ck_shift        s%      A
 shift          shift                   ck_shift        s%      A
 unshift                unshift                 ck_fun          imst@   A L
 sort           sort                    ck_sort         m@      C? L