diff options
| author | mike@exegenix.com <mike@exegenix.com> | 2003-03-24 16:29:08 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-26 22:30:09 +0000 |
| commit | f21dc558ba1787c481c41d0e2a712ea60b9b1444 (patch) | |
| tree | d8e20b7450f27e6166b4c6cda11d9db74c7d739b /lib/FileHandle.t | |
| parent | bc44a8a2ef6444a7379feaa886439b1a4b82d7b2 (diff) | |
| download | perl-f21dc558ba1787c481c41d0e2a712ea60b9b1444.tar.gz | |
[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
Diffstat (limited to 'lib/FileHandle.t')
| -rwxr-xr-x | lib/FileHandle.t | 4 |
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"; |