}
use Config;
+no warnings 'once';
my $test = 1;
-print "1..25\n";
+print "1..26\n";
print "ok 1\n";
open(DUPOUT,">&STDOUT");
close(F);
}
+# To get STDOUT back.
+open(F, ">&DUPOUT") or die "Cannot dup stdout back: $!";
+
curr_test(13);
SKIP: {
- skip("need perlio", 13) unless $Config{useperlio};
+ skip("need perlio", 14) unless $Config{useperlio};
ok(open(F, ">&", STDOUT));
isnt(fileno(F), fileno(STDOUT));
close F;
- ok(open(F, "<&=STDIN"));
+ ok(open(F, "<&=STDIN")) or _diag $!;
is(fileno(F), fileno(STDIN));
close F;
close F; # flush second
open(G, "<dup$$") or die;
- { local $/; is(<G>, "ggg\nfff\n") }
+ {
+ my $line;
+ $line = <G>; chomp $line; is($line, "ggg");
+ $line = <G>; chomp $line; is($line, "fff");
+ }
close G;
END { 1 while unlink "dup$$" }