This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Comment out a now unused variable
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 17 Dec 2007 17:17:23 +0000 (17:17 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 17 Dec 2007 17:17:23 +0000 (17:17 +0000)
p4raw-id: //depot/perl@32630

regexec.c

index 6afcea4..a02a0c0 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -1227,7 +1227,8 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                U8 *sm = (U8 *) m;
                U8 tmpbuf1[UTF8_MAXBYTES_CASE+1];
                U8 tmpbuf2[UTF8_MAXBYTES_CASE+1];
-               const U32 uniflags = UTF8_ALLOW_DEFAULT;
+               /* used by commented-out code below */
+               /*const U32 uniflags = UTF8_ALLOW_DEFAULT;*/
                
                 /* XXX: Since the node will be case folded at compile
                    time this logic is a little odd, although im not