}
use Config;
+no warnings 'once';
my $test = 1;
print "1..26\n";
close(F);
}
+# To get STDOUT back.
+open(F, ">&DUPOUT") or die "Cannot dup stdout back: $!";
+
curr_test(13);
SKIP: {
isnt(fileno(F), fileno(STDOUT));
close F;
- ok(open(F, "<&=STDIN"));
+ ok(open(F, "<&=STDIN")) or _diag $!;
is(fileno(F), fileno(STDIN));
close F;