[perl #21672] IO::New and undefined filename behaviour

From: "mike@exegenix.com (via RT)" <perlbug-followup@perl.org>
Message-Id: <rt-21672-54038.2.07650993465862@bugs6.perl.org>
plus a regression test

p4raw-id: //depot/perl@19072

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/FileHandle.t b/lib/FileHandle.t
index c994c8b448..ddbd94474e 100755
--- a/lib/FileHandle.t
+++ b/lib/FileHandle.t
@@ -22,7 +22,7 @@ autoflush STDOUT 1;
 $mystdout = new_from_fd FileHandle 1,"w";
 $| = 1;
 autoflush $mystdout;
-print "1..11\n";
+print "1..12\n";
 
 print $mystdout "ok ".fileno($mystdout)."\n";
 
@@ -93,3 +93,5 @@ else {
    exit(0);
   }
 }
+
+print FileHandle->new('','r') ? "not ok 12\n" : "ok 12\n";