This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Glob.xs: consting
authorFather Chrysostomos <sprout@cpan.org>
Sat, 29 Oct 2011 07:50:44 +0000 (00:50 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 29 Oct 2011 07:50:44 +0000 (00:50 -0700)
ext/File-Glob/Glob.xs

index e36f1df..10d39c5 100644 (file)
@@ -67,11 +67,11 @@ iterate(pTHX_ bool(*globber)(pTHX_ AV *entries, SV *patsv))
     dSP;
     dMY_CXT;
 
-    SV *cxixsv = POPs;
+    SV * const cxixsv = POPs;
     const char *cxixpv;
     STRLEN cxixlen;
     AV *entries;
-    U32 gimme = GIMME_V;
+    U32 const gimme = GIMME_V;
     SV *patsv = POPs;
     bool on_stack = FALSE;