This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[ID 20001031.004] Uninitialized auto variable in regcomp.c
authorMartin Husemann <martin@duskware.de>
Tue, 31 Oct 2000 23:39:35 +0000 (00:39 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 1 Nov 2000 14:46:47 +0000 (14:46 +0000)
Message-Id: <200010312239.e9VMdZR01580@night-porter.duskware.de>

p4raw-id: //depot/perl@7512

regcomp.c

index 1946720..19b8096 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -843,8 +843,8 @@ S_study_chunk(pTHX_ regnode **scanp, I32 *deltap, regnode *last, scan_data_t *da
            flags &= ~SCF_DO_STCLASS;
        }
        else if (strchr((char*)PL_varies,OP(scan))) {
-           I32 mincount, maxcount, minnext, deltanext, pos_before, fl;
-           I32 f = flags;
+           I32 mincount, maxcount, minnext, deltanext, fl;
+           I32 f = flags, pos_before = 0;
            regnode *oscan = scan;
            struct regnode_charclass_class this_class;
            struct regnode_charclass_class *oclass = NULL;