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.

1 files changed, 4 insertions, 1 deletions

diff --git a/t/op/filetest.t b/t/op/filetest.t
index 5cc83d7107..647bd9d9a6 100644
--- a/t/op/filetest.t
+++ b/t/op/filetest.t
@@ -10,7 +10,7 @@ BEGIN {
 }
 
 use Config;
-plan(tests => 35 + 27*14);
+plan(tests => 36 + 27*14);
 
 ok( -d 'op' );
 ok( -f 'TEST' );
@@ -257,3 +257,6 @@ SKIP: {
     like $@, qr/^The stat preceding -l _ wasn't an lstat at /,
 	'-T HANDLE sets the stat type';
 }
+
+is runperl(prog => '-T _', switches => ['-w'], stderr => 1), "",
+  'no uninit warnings from -T with no preceding stat';