diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 23:56:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 23:56:14 +0000 |
| commit | 9c5ffd7c3fe1ab64d3e7d06810ac3ab42426718b (patch) | |
| tree | 0865e36d778d81c5329cbbace339ef7bc601980a /op.c | |
| parent | a355d973eb7817e2c7ea1f451ee3c80da9cf5765 (diff) | |
| download | perl-9c5ffd7c3fe1ab64d3e7d06810ac3ab42426718b.tar.gz | |
More -Wall sweeping.
p4raw-id: //depot/perl@10338
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2660,7 +2660,7 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl) U32 max = 0; I32 bits; I32 havefinal = 0; - U32 final; + U32 final = 0; I32 from_utf = o->op_private & OPpTRANS_FROM_UTF; I32 to_utf = o->op_private & OPpTRANS_TO_UTF; U8* tsave = NULL; @@ -6295,7 +6295,7 @@ Perl_ck_sort(pTHX_ OP *o) simplify_sort(o); firstkid = cLISTOPo->op_first->op_sibling; /* get past pushmark */ if (o->op_flags & OPf_STACKED) { /* may have been cleared */ - OP *k; + OP *k = NULL; OP *kid = cUNOPx(firstkid)->op_first; /* get past null */ if (kid->op_type == OP_SCOPE || kid->op_type == OP_LEAVE) { |