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 /doio.c | |
| parent | a355d973eb7817e2c7ea1f451ee3c80da9cf5765 (diff) | |
| download | perl-9c5ffd7c3fe1ab64d3e7d06810ac3ab42426718b.tar.gz | |
More -Wall sweeping.
p4raw-id: //depot/perl@10338
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1011,7 +1011,7 @@ Perl_do_eof(pTHX_ GV *gv) Off_t Perl_do_tell(pTHX_ GV *gv) { - register IO *io; + register IO *io = 0; register PerlIO *fp; if (gv && (io = GvIO(gv)) && (fp = IoIFP(io))) { @@ -1030,7 +1030,7 @@ Perl_do_tell(pTHX_ GV *gv) bool Perl_do_seek(pTHX_ GV *gv, Off_t pos, int whence) { - register IO *io; + register IO *io = 0; register PerlIO *fp; if (gv && (io = GvIO(gv)) && (fp = IoIFP(io))) { @@ -1049,7 +1049,7 @@ Perl_do_seek(pTHX_ GV *gv, Off_t pos, int whence) Off_t Perl_do_sysseek(pTHX_ GV *gv, Off_t pos, int whence) { - register IO *io; + register IO *io = 0; register PerlIO *fp; if (gv && (io = GvIO(gv)) && (fp = IoIFP(io))) @@ -1332,7 +1332,7 @@ Perl_do_aexec5(pTHX_ SV *really, register SV **mark, register SV **sp, Perl_croak(aTHX_ "exec? I'm not *that* kind of operating system"); #else register char **a; - char *tmps; + char *tmps = Nullch; STRLEN n_a; if (sp > mark) { |