This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reverse 'const static' to avoid 'old-style-declaration' warning.
authorJames E Keenan <jkeenan@cpan.org>
Sun, 1 Feb 2015 01:44:27 +0000 (20:44 -0500)
committerTony Cook <tony@develop-help.com>
Tue, 3 Feb 2015 00:23:08 +0000 (11:23 +1100)
ext/Devel-Peek/Peek.pm
ext/Devel-Peek/Peek.xs

index f3adcfc..bbea3cd 100644 (file)
@@ -3,7 +3,7 @@
 
 package Devel::Peek;
 
-$VERSION = '1.21';
+$VERSION = '1.22';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
index 856ff77..132cad7 100644 (file)
@@ -406,7 +406,7 @@ S_ck_dump(pTHX_ OP *entersubop, GV *namegv, SV *cv)
     return (OP *)newop;
 }
 
-const static XOP my_xop = {
+static const XOP my_xop = {
     XOPf_xop_name|XOPf_xop_desc|XOPf_xop_class,                /* xop_flags */
     "Devel_Peek_Dump",                                 /* xop_name */
     "Dump",                                            /* xop_desc */