summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-01-13 14:26:19 -0800
committerFather Chrysostomos <sprout@cpan.org>2012-01-13 21:24:54 -0800
commitde61bf2ac7b4130886e0d3b93c1f0e22b7dfaec3 (patch)
treef99906f756d08ada7c7c40cada08834aac2f23a4 /perl.c
parent213084e431373aec68f094fabf7c87419d9c7688 (diff)
downloadperl-de61bf2ac7b4130886e0d3b93c1f0e22b7dfaec3.tar.gz
Suppress confusing uninit warning from -T _
-T _ uses the file name saved by a preceding stat. If there was no preceding stat, the internal sv used to store the file name is unde- fined, so SvPV producing an uninitialized warning. Normally a failed -T will just return undefined and set $!. Normally stat on a filehan- dle will set the internal stat file name to "". This commit sets the internal file name to "" initially on startup, instead of creating an undefined scalar.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 74e7470069..28795110b8 100644
--- a/perl.c
+++ b/perl.c
@@ -4088,7 +4088,7 @@ S_init_predump_symbols(pTHX)
GvMULTI_on(tmpgv);
GvIOp(tmpgv) = MUTABLE_IO(SvREFCNT_inc_simple(io));
- PL_statname = newSV(0); /* last filename we did stat on */
+ PL_statname = newSVpvs(""); /* last filename we did stat on */
}
void