2 # vim: ts=4 sts=4 sw=4:
4 # $! may not be set if EOF was reached without any error.
5 # http://rt.perl.org/rt3/Ticket/Display.html?id=39060
12 my $test_prog = 'while(<>){print}; print $!';
16 $saved_perlio = $ENV{PERLIO};
20 $ENV{PERLIO} = $saved_perlio if defined $saved_perlio;
23 for my $perlio ('perlio', 'stdio') {
24 $ENV{PERLIO} = $perlio;
26 for my $test_in ("test\n", "test") {
27 skip("Guaranteed newline at EOF on VMS", 4) if $^O eq 'VMS' && $test_in eq 'test';
28 my $test_in_esc = $test_in;
29 $test_in_esc =~ s/\n/\\n/g;
30 for my $rs_code ('', '$/=undef', '$/=\2', '$/=\1024') {
31 is( runperl( prog => "$rs_code; $test_prog",
32 stdin => $test_in, stderr => 1),
34 "Wrong errno, PERLIO=$ENV{PERLIO} stdin='$test_in_esc', $rs_code");