diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1997-11-22 12:52:16 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-03 03:03:55 +0000 |
| commit | 4b74e3fbc56175eeb65af1e5ad28a26e76ba64d9 (patch) | |
| tree | 22e05587bd64780c7cb3ed045956ec4ca0ea2639 | |
| parent | a2c066523a8ce75a281ac073b929d59e1a2fbb5f (diff) | |
| download | perl-4b74e3fbc56175eeb65af1e5ad28a26e76ba64d9.tar.gz | |
[win32] yet another maintpatch
Message-Id: <199711221252.MAA14000@crypt.compulink.co.uk>
Subject: Re: [PERL] Unexpected output
p4raw-id: //depot/win32/perl@630
| -rw-r--r-- | doio.c | 8 | ||||
| -rw-r--r-- | t/pragma/warn-1global | 5 |
2 files changed, 10 insertions, 3 deletions
@@ -839,6 +839,7 @@ my_stat(ARGSproto) } else { SV* sv = POPs; + char *s; PUTBACK; if (SvTYPE(sv) == SVt_PVGV) { tmpgv = (GV*)sv; @@ -849,11 +850,12 @@ my_stat(ARGSproto) goto do_fstat; } + s = SvPV(sv, na); statgv = Nullgv; - sv_setpv(statname,SvPV(sv, na)); + sv_setpv(statname, s); laststype = OP_STAT; - laststatval = PerlLIO_stat(SvPV(sv, na),&statcache); - if (laststatval < 0 && dowarn && strchr(SvPV(sv, na), '\n')) + laststatval = PerlLIO_stat(s, &statcache); + if (laststatval < 0 && dowarn && strchr(s, '\n')) warn(warn_nl, "stat"); return laststatval; } diff --git a/t/pragma/warn-1global b/t/pragma/warn-1global index 33252731b0..07b5bc8eb9 100644 --- a/t/pragma/warn-1global +++ b/t/pragma/warn-1global @@ -144,3 +144,8 @@ my $a ; chop $a ; my $c ; chop $c ; EXPECT Use of uninitialized value at - line 5. +######## +-w +-e undef +EXPECT +Use of uninitialized value at - line 2. |