diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-04-08 12:58:43 +0300 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-10 11:12:26 +0000 |
| commit | de5e01c2603e3fa2c0e1b6603c7f4f31802c829d (patch) | |
| tree | 7e5aeece9eedb01ea99f57ab463348ab04cfd4c9 /op.c | |
| parent | 097eb12cc39d98a6d964631d26d4a7e23e180985 (diff) | |
| download | perl-de5e01c2603e3fa2c0e1b6603c7f4f31802c829d.tar.gz | |
es: quiet some warnings (with a free AIX cpp insanity avoidance tip)
Message-ID: <44375F23.6030900@gmail.com>
Date: Sat, 08 Apr 2006 09:58:43 +0300
p4raw-id: //depot/perl@27754
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2142,7 +2142,7 @@ Perl_fold_constants(pTHX_ register OP *o) register OP *curop; OP *newop; I32 type = o->op_type; - SV *sv; + SV *sv = NULL; int ret = 0; I32 oldscope; OP *old_next; @@ -2243,6 +2243,7 @@ Perl_fold_constants(pTHX_ register OP *o) #ifndef PERL_MAD op_free(o); #endif + assert(sv); if (type == OP_RV2GV) newop = newGVOP(OP_GV, 0, (GV*)sv); else |