This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
rename POPFOO() to CX_POPFOO()
[perl5.git] / t / op / args.t
index bfa015e..2349b84 100644 (file)
@@ -42,7 +42,7 @@ sub new4 { goto &new2 }
     is("@$y","a b c y", 'goto: multiple elements');
 }
 
-# see if POPSUB gets to see the right pad across a dounwind() with
+# see if CX_POPSUB gets to see the right pad across a dounwind() with
 # a reified @_
 
 sub methimpl {
@@ -63,7 +63,7 @@ sub try {
 
 for (1..5) { try() }
 is($failcount, 5,
-    'POPSUB sees right pad across a dounwind() with reified @_');
+    'CX_POPSUB sees right pad across a dounwind() with reified @_');
 
 # bug #21542 local $_[0] causes reify problems and coredumps