Filehandle STDIN opened only for input at - line 3.
########
# pp_sys.c [pp_send]
+use warnings 'io' ;
+syswrite STDIN, "fred";
+no warnings 'io' ;
+syswrite STDIN, "fred";
+EXPECT
+Filehandle STDIN opened only for input at - line 3.
+########
+# pp_sys.c [pp_send]
use warnings 'closed' ;
close STDIN;
syswrite STDIN, "fred", 1;
# pp_sys.c [pp_sselect]
use warnings 'misc';
$x = 1;
-select $x, undef, undef, undef;
+select $x, undef, undef, 1;
no warnings 'misc';
-select $x, undef, undef, undef;
+select $x, undef, undef, 1;
EXPECT
Non-string passed as bitmask at - line 4.
########