This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use GIMME_V in Opcode
authorFather Chrysostomos <sprout@cpan.org>
Sat, 20 Dec 2014 14:54:52 +0000 (06:54 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 21 Dec 2014 15:06:13 +0000 (07:06 -0800)
GIMME_V is a simpler macro that results in smaller machine code.

ext/Opcode/Opcode.xs

index 9d657f8..3b6d275 100644 (file)
@@ -525,7 +525,7 @@ CODE:
 void
 opcodes()
 PPCODE:
-    if (GIMME == G_ARRAY) {
+    if (GIMME_V == G_ARRAY) {
        croak("opcodes in list context not yet implemented"); /* XXX */
     }
     else {