[p5sagit/p5-mst-13.2.git] / t / lib / warnings / pp_sys

  pp_sys.c 	AOK

  untie attempted while %d inner references still exist	[pp_untie]
    sub TIESCALAR { bless [] } ; tie $a, 'main'; untie $a ;

  fileno() on unopened filehandle abc		[pp_fileno]
    $a = "abc"; fileno($a)

  binmode() on unopened filehandle abc		[pp_binmode]
    $a = "abc"; fileno($a)

  printf() on unopened filehandle abc		[pp_prtf]
    $a = "abc"; printf $a "fred"

  Filehandle %s opened only for input		[pp_leavewrite]
    format STDIN =
    .
    write STDIN;

  write() on closed filehandle %s		[pp_leavewrite]
    format STDIN =
    .
    close STDIN;
    write STDIN ;

  page overflow	 				[pp_leavewrite]

  printf() on unopened filehandle abc		[pp_prtf]
    $a = "abc"; printf $a "fred"

  Filehandle %s opened only for input		[pp_prtf]
    $a = "abc"; 
    printf $a "fred"

  printf() on closed filehandle %s		[pp_prtf]
    close STDIN ;
    printf STDIN "fred"

  syswrite() on closed filehandle %s		[pp_send]
    close STDIN; 
    syswrite STDIN, "fred", 1;

  send() on closed socket %s			[pp_send]
    close STDIN; 
    send STDIN, "fred", 1

  bind() on closed socket %s			[pp_bind]
    close STDIN; 
    bind STDIN, "fred" ;


  connect() on closed socket %s			[pp_connect]
    close STDIN; 
    connect STDIN, "fred" ;

  listen() on closed socket %s			[pp_listen]
    close STDIN; 
    listen STDIN, 2;

  accept() on closed socket %s			[pp_accept]
    close STDIN; 
    accept "fred", STDIN ;

  shutdown() on closed socket %s		[pp_shutdown]
    close STDIN; 
    shutdown STDIN, 0;

  setsockopt() on closed socket %s		[pp_ssockopt]
  getsockopt() on closed socket	%s		[pp_ssockopt]
    close STDIN; 
    setsockopt STDIN, 1,2,3;
    getsockopt STDIN, 1,2;

  getsockname() on closed socket %s		[pp_getpeername]
  getpeername() on closed socket %s		[pp_getpeername]
    close STDIN; 
    getsockname STDIN;
    getpeername STDIN;

  flock() on closed socket %s			[pp_flock]
  flock() on closed socket			[pp_flock]
    close STDIN;
    flock STDIN, 8;
    flock $a, 8;

  warn(warn_nl, "stat");			[pp_stat]

  -T on closed filehandle %s
  stat() on closed filehandle %s
	close STDIN ; -T STDIN ; stat(STDIN) ;

  warn(warn_nl, "open");			[pp_fttext]
    -T "abc\ndef" ;

  Filehandle %s opened only for output		[pp_sysread]
	my $file = "./xcv" ;
	open(F, ">$file") ; 
	my $a = sysread(F, $a,10) ;

  lstat on filehandle %s			[pp_lstat]

  getc() on unopened filehandle			[pp_getc]

  getc() on closed filehandle			[pp_getc]

  Non-string passed as bitmask			[pp_sselect]

__END__
# pp_sys.c [pp_untie]
use warnings 'untie' ;
sub TIESCALAR { bless [] } ; 
$b = tie $a, 'main'; 
untie $a ;
no warnings 'untie' ;
$c = tie $d, 'main'; 
untie $d ;
EXPECT
untie attempted while 1 inner references still exist at - line 5.
########
# pp_sys.c [pp_leavewrite]
use warnings 'io' ;
format STDIN =
.
write STDIN;
no warnings 'io' ;
write STDIN;
EXPECT
Filehandle STDIN opened only for input at - line 5.
########
# pp_sys.c [pp_leavewrite]
use warnings 'closed' ;
format STDIN =
.
close STDIN;
write STDIN;
opendir STDIN, ".";
write STDIN;
closedir STDIN;
no warnings 'closed' ;
write STDIN;
opendir STDIN, ".";
write STDIN;
EXPECT
write() on closed filehandle STDIN at - line 6.
write() on closed filehandle STDIN at - line 8.
	(Are you trying to call write() on dirhandle STDIN?)
########
# pp_sys.c [pp_leavewrite]
use warnings 'io' ;
format STDOUT_TOP =
abc
.
format STDOUT =
def
ghi
.
$= = 1 ;
$- =1 ;
open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
write ;
no warnings 'io' ;
write ;
EXPECT
page overflow at - line 13.
########
# pp_sys.c [pp_prtf]
use warnings 'unopened' ;
$a = "abc"; 
printf $a "fred";
no warnings 'unopened' ;
printf $a "fred";
EXPECT
printf() on unopened filehandle abc at - line 4.
########
# pp_sys.c [pp_prtf]
use warnings 'closed' ;
close STDIN ;
printf STDIN "fred";
opendir STDIN, ".";
printf STDIN "fred";
closedir STDIN;
no warnings 'closed' ;
printf STDIN "fred";
opendir STDIN, ".";
printf STDIN "fred";
EXPECT
printf() on closed filehandle STDIN at - line 4.
printf() on closed filehandle STDIN at - line 6.
	(Are you trying to call printf() on dirhandle STDIN?)
########
# pp_sys.c [pp_prtf]
use warnings 'io' ;
printf STDIN "fred";
no warnings 'io' ;
printf STDIN "fred";
EXPECT
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;
opendir STDIN, ".";
syswrite STDIN, "fred", 1;
closedir STDIN;
no warnings 'closed' ;
syswrite STDIN, "fred", 1;
opendir STDIN, ".";
syswrite STDIN, "fred", 1;
EXPECT
syswrite() on closed filehandle STDIN at - line 4.
syswrite() on closed filehandle STDIN at - line 6.
	(Are you trying to call syswrite() on dirhandle STDIN?)
########
# pp_sys.c [pp_flock]
use Config; 
BEGIN { 
  if ( !$Config{d_flock} &&
       !$Config{d_fcntl_can_lock} &&
       !$Config{d_lockf} ) {
    print <<EOM ;
SKIPPED
# flock not present
EOM
    exit ;
  } 
}
use warnings qw(unopened closed);
close STDIN;
flock STDIN, 8;
opendir STDIN, ".";
flock STDIN, 8;
flock FOO, 8;
flock $a, 8;
no warnings qw(unopened closed);
flock STDIN, 8;
opendir STDIN, ".";
flock STDIN, 8;
flock FOO, 8;
flock $a, 8;
EXPECT
flock() on closed filehandle STDIN at - line 16.
flock() on closed filehandle STDIN at - line 18.
	(Are you trying to call flock() on dirhandle STDIN?)
flock() on unopened filehandle FOO at - line 19.
flock() on unopened filehandle at - line 20.
########
# pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
use warnings 'io' ;
use Config; 
BEGIN { 
  if ( $^O ne 'VMS' and ! $Config{d_socket}) {
    print <<EOM ;
SKIPPED
# send not present
# bind not present
# connect not present
# accept not present
# shutdown not present
# setsockopt not present
# getsockopt not present
# getsockname not present
# getpeername not present
EOM
    exit ;
  } 
}
close STDIN; 
send STDIN, "fred", 1;
bind STDIN, "fred" ;
connect STDIN, "fred" ;
listen STDIN, 2;
accept "fred", STDIN;
shutdown STDIN, 0;
setsockopt STDIN, 1,2,3;
getsockopt STDIN, 1,2;
getsockname STDIN;
getpeername STDIN;
opendir STDIN, ".";
send STDIN, "fred", 1;
bind STDIN, "fred" ;
connect STDIN, "fred" ;
listen STDIN, 2;
accept "fred", STDIN;
shutdown STDIN, 0;
setsockopt STDIN, 1,2,3;
getsockopt STDIN, 1,2;
getsockname STDIN;
getpeername STDIN;
closedir STDIN;
no warnings 'io' ;
send STDIN, "fred", 1;
bind STDIN, "fred" ;
connect STDIN, "fred" ;
listen STDIN, 2;
accept STDIN, "fred" ;
shutdown STDIN, 0;
setsockopt STDIN, 1,2,3;
getsockopt STDIN, 1,2;
getsockname STDIN;
getpeername STDIN;
opendir STDIN, ".";
send STDIN, "fred", 1;
bind STDIN, "fred" ;
connect STDIN, "fred" ;
listen STDIN, 2;
accept "fred", STDIN;
shutdown STDIN, 0;
setsockopt STDIN, 1,2,3;
getsockopt STDIN, 1,2;
getsockname STDIN;
getpeername STDIN;
EXPECT
send() on closed socket STDIN at - line 22.
bind() on closed socket STDIN at - line 23.
connect() on closed socket STDIN at - line 24.
listen() on closed socket STDIN at - line 25.
accept() on closed socket STDIN at - line 26.
shutdown() on closed socket STDIN at - line 27.
setsockopt() on closed socket STDIN at - line 28.
getsockopt() on closed socket STDIN at - line 29.
getsockname() on closed socket STDIN at - line 30.
getpeername() on closed socket STDIN at - line 31.
send() on closed socket STDIN at - line 33.
	(Are you trying to call send() on dirhandle STDIN?)
bind() on closed socket STDIN at - line 34.
	(Are you trying to call bind() on dirhandle STDIN?)
connect() on closed socket STDIN at - line 35.
	(Are you trying to call connect() on dirhandle STDIN?)
listen() on closed socket STDIN at - line 36.
	(Are you trying to call listen() on dirhandle STDIN?)
accept() on closed socket STDIN at - line 37.
	(Are you trying to call accept() on dirhandle STDIN?)
shutdown() on closed socket STDIN at - line 38.
	(Are you trying to call shutdown() on dirhandle STDIN?)
setsockopt() on closed socket STDIN at - line 39.
	(Are you trying to call setsockopt() on dirhandle STDIN?)
getsockopt() on closed socket STDIN at - line 40.
	(Are you trying to call getsockopt() on dirhandle STDIN?)
getsockname() on closed socket STDIN at - line 41.
	(Are you trying to call getsockname() on dirhandle STDIN?)
getpeername() on closed socket STDIN at - line 42.
	(Are you trying to call getpeername() on dirhandle STDIN?)
########
# pp_sys.c [pp_stat]
use warnings 'newline' ;
stat "abc\ndef";
no warnings 'newline' ;
stat "abc\ndef";
EXPECT
Unsuccessful stat on filename containing newline at - line 3.
########
# pp_sys.c [pp_fttext]
use warnings qw(unopened closed) ;
close STDIN ; 
-T STDIN ;
stat(STDIN) ;
-T HOCUS;
stat(POCUS);
no warnings qw(unopened closed) ;
-T STDIN ;
stat(STDIN);
-T HOCUS;
stat(POCUS);
EXPECT
-T on closed filehandle STDIN at - line 4.
stat() on closed filehandle STDIN at - line 5.
-T on unopened filehandle HOCUS at - line 6.
stat() on unopened filehandle POCUS at - line 7.
########
# pp_sys.c [pp_fttext]
use warnings 'newline' ;
-T "abc\ndef" ;
no warnings 'newline' ;
-T "abc\ndef" ;
EXPECT
Unsuccessful open on filename containing newline at - line 3.
########
# pp_sys.c [pp_sysread]
use warnings 'io' ;
if ($^O eq 'dos') {
    print <<EOM ;
SKIPPED
# skipped on dos
EOM
    exit ;
}
my $file = "./xcv" ;
open(F, ">$file") ; 
my $a = sysread(F, $a,10) ;
no warnings 'io' ;
my $a = sysread(F, $a,10) ;
close F ;
use warnings 'io' ;
sysread(F, $a, 10);
read(F, $a, 10);
sysread(NONEXISTENT, $a, 10);
read(NONEXISTENT, $a, 10);
unlink $file ;
EXPECT
Filehandle F opened only for output at - line 12.
sysread() on closed filehandle F at - line 17.
read() on closed filehandle F at - line 18.
sysread() on unopened filehandle NONEXISTENT at - line 19.
read() on unopened filehandle NONEXISTENT at - line 20.
########
# pp_sys.c [pp_binmode]
use warnings 'unopened' ;
binmode(BLARG);
$a = "BLERG";binmode($a);
EXPECT
binmode() on unopened filehandle BLARG at - line 3.
binmode() on unopened filehandle at - line 4.
########
# pp_sys.c [pp_lstat]
use warnings 'io';
open FH, "harness" or die "# $!";
lstat FH;
open my $fh, $0 or die "# $!";
lstat $fh;
no warnings 'io';
lstat FH;
lstat $fh;
close FH;
close $fh;
EXPECT
lstat() on filehandle FH at - line 4.
lstat() on filehandle $fh at - line 6.
########
# pp_sys.c [pp_getc]
use warnings qw(unopened closed) ;
getc FOO;
close STDIN;
getc STDIN;
# Create an empty file
$file = 'getcwarn.tmp';
open FH1, ">$file" or die "# $!"; close FH1;
open FH2, $file    or die "# $!";
getc FH2; # Should not warn at EOF
close FH2;
getc FH2; # Warns, now
unlink $file;
no warnings qw(unopened closed) ;
getc FOO;
getc STDIN;
getc FH2;
EXPECT
getc() on unopened filehandle FOO at - line 3.
getc() on closed filehandle STDIN at - line 5.
getc() on closed filehandle FH2 at - line 12.
########
# pp_sys.c [pp_sselect]
use warnings 'misc';
$x = 1;
select $x, undef, undef, 1;
no warnings 'misc';
select $x, undef, undef, 1;
EXPECT
Non-string passed as bitmask at - line 4.
########
use Config;
BEGIN {
    if (!$Config{d_fchdir}) {
	print <<EOM;
SKIPPED
# fchdir not present
EOM
	exit;
    }
}
opendir FOO, '.'; closedir FOO;
open BAR, '.'; close BAR;
opendir $dh, '.'; closedir $dh;
open $fh, '.'; close $fh;
chdir FOO;
chdir BAR;
chdir $dh;
chdir $fh;
use warnings qw(unopened closed) ;
chdir FOO;
chdir BAR;
chdir $dh;
chdir $fh;
EXPECT
chdir() on unopened filehandle FOO at - line 20.
chdir() on closed filehandle BAR at - line 21.
chdir() on unopened filehandle $dh at - line 22.
chdir() on closed filehandle $fh at - line 23.
########
# pp_sys.c [pp_open]
use warnings;
opendir FOO, ".";
opendir my $foo, ".";
open FOO, "TEST";
open $foo, "TEST";
no warnings qw(io deprecated);
open FOO, "TEST";
open $foo, "TEST";
EXPECT
Opening dirhandle FOO also as a file at - line 5.
Opening dirhandle $foo also as a file at - line 6.
########
# pp_sys.c [pp_open_dir]
use warnings;
open FOO, "TEST";
open my $foo, "TEST";
opendir FOO, ".";
opendir $foo, ".";
no warnings qw(io deprecated);
opendir FOO, ".";
opendir $foo, ".";
EXPECT
Opening filehandle FOO also as a directory at - line 5.
Opening filehandle $foo also as a directory at - line 6.
Commit	Line	Data
599cee73	1	pp_sys.c AOK
599cee73	2
767a6a26	3	untie attempted while %d inner references still exist [pp_untie]
599cee73	4	sub TIESCALAR { bless [] } ; tie $a, 'main'; untie $a ;
599cee73	5
c289d2f7	6	fileno() on unopened filehandle abc [pp_fileno]
	7	$a = "abc"; fileno($a)
	8
	9	binmode() on unopened filehandle abc [pp_binmode]
	10	$a = "abc"; fileno($a)
	11
	12	printf() on unopened filehandle abc [pp_prtf]
	13	$a = "abc"; printf $a "fred"
	14
767a6a26	15	Filehandle %s opened only for input [pp_leavewrite]
599cee73	16	format STDIN =
	17	.
	18	write STDIN;
	19
9a7dcd9c	20	write() on closed filehandle %s [pp_leavewrite]
599cee73	21	format STDIN =
	22	.
	23	close STDIN;
	24	write STDIN ;
	25
767a6a26	26	page overflow [pp_leavewrite]
599cee73	27
2dd78f96	28	printf() on unopened filehandle abc [pp_prtf]
599cee73	29	$a = "abc"; printf $a "fred"
599cee73	30
767a6a26	31	Filehandle %s opened only for input [pp_prtf]
599cee73	32	$a = "abc";
	33	printf $a "fred"
	34
9a7dcd9c	35	printf() on closed filehandle %s [pp_prtf]
599cee73	36	close STDIN ;
	37	printf STDIN "fred"
	38
69282e91	39	syswrite() on closed filehandle %s [pp_send]
599cee73	40	close STDIN;
	41	syswrite STDIN, "fred", 1;
	42
69282e91	43	send() on closed socket %s [pp_send]
599cee73	44	close STDIN;
	45	send STDIN, "fred", 1
	46
69282e91	47	bind() on closed socket %s [pp_bind]
599cee73	48	close STDIN;
	49	bind STDIN, "fred" ;
	50
	51
69282e91	52	connect() on closed socket %s [pp_connect]
599cee73	53	close STDIN;
	54	connect STDIN, "fred" ;
	55
69282e91	56	listen() on closed socket %s [pp_listen]
599cee73	57	close STDIN;
	58	listen STDIN, 2;
	59
69282e91	60	accept() on closed socket %s [pp_accept]
599cee73	61	close STDIN;
69282e91	62	accept "fred", STDIN ;
599cee73	63
69282e91	64	shutdown() on closed socket %s [pp_shutdown]
599cee73	65	close STDIN;
	66	shutdown STDIN, 0;
	67
69282e91	68	setsockopt() on closed socket %s [pp_ssockopt]
69282e91	69	getsockopt() on closed socket %s [pp_ssockopt]
599cee73	70	close STDIN;
	71	setsockopt STDIN, 1,2,3;
	72	getsockopt STDIN, 1,2;
	73
69282e91	74	getsockname() on closed socket %s [pp_getpeername]
69282e91	75	getpeername() on closed socket %s [pp_getpeername]
599cee73	76	close STDIN;
	77	getsockname STDIN;
	78	getpeername STDIN;
	79
69282e91	80	flock() on closed socket %s [pp_flock]
bc37a18f	81	flock() on closed socket [pp_flock]
69282e91	82	close STDIN;
69282e91	83	flock STDIN, 8;
bc37a18f	84	flock $a, 8;
69282e91	85
767a6a26	86	warn(warn_nl, "stat"); [pp_stat]
599cee73	87
2dd78f96	88	-T on closed filehandle %s
	89	stat() on closed filehandle %s
	90	close STDIN ; -T STDIN ; stat(STDIN) ;
599cee73	91
767a6a26	92	warn(warn_nl, "open"); [pp_fttext]
599cee73	93	-T "abc\ndef" ;
599cee73	94
767a6a26	95	Filehandle %s opened only for output [pp_sysread]
	96	my $file = "./xcv" ;
	97	open(F, ">$file") ;
	98	my $a = sysread(F, $a,10) ;
5d3e98de	99
90133b69	100	lstat on filehandle %s [pp_lstat]
	101
	102	getc() on unopened filehandle [pp_getc]
	103
	104	getc() on closed filehandle [pp_getc]
599cee73	105
4ef2275c	106	Non-string passed as bitmask [pp_sselect]
4ef2275c	107
599cee73	108	__END__
767a6a26	109	# pp_sys.c [pp_untie]
4438c4b7	110	use warnings 'untie' ;
599cee73	111	sub TIESCALAR { bless [] } ;
	112	$b = tie $a, 'main';
	113	untie $a ;
4438c4b7	114	no warnings 'untie' ;
0453d815	115	$c = tie $d, 'main';
0453d815	116	untie $d ;
599cee73	117	EXPECT
	118	untie attempted while 1 inner references still exist at - line 5.
	119	########
767a6a26	120	# pp_sys.c [pp_leavewrite]
4438c4b7	121	use warnings 'io' ;
599cee73	122	format STDIN =
	123	.
	124	write STDIN;
4438c4b7	125	no warnings 'io' ;
0453d815	126	write STDIN;
599cee73	127	EXPECT
43693395	128	Filehandle STDIN opened only for input at - line 5.
599cee73	129	########
767a6a26	130	# pp_sys.c [pp_leavewrite]
4438c4b7	131	use warnings 'closed' ;
599cee73	132	format STDIN =
	133	.
	134	close STDIN;
	135	write STDIN;
69282e91	136	opendir STDIN, ".";
	137	write STDIN;
	138	closedir STDIN;
4438c4b7	139	no warnings 'closed' ;
0453d815	140	write STDIN;
69282e91	141	opendir STDIN, ".";
69282e91	142	write STDIN;
599cee73	143	EXPECT
43693395	144	write() on closed filehandle STDIN at - line 6.
	145	write() on closed filehandle STDIN at - line 8.
	146	(Are you trying to call write() on dirhandle STDIN?)
599cee73	147	########
767a6a26	148	# pp_sys.c [pp_leavewrite]
4438c4b7	149	use warnings 'io' ;
599cee73	150	format STDOUT_TOP =
	151	abc
	152	.
	153	format STDOUT =
	154	def
	155	ghi
	156	.
	157	$= = 1 ;
	158	$- =1 ;
3eeba6fb	159	open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
599cee73	160	write ;
4438c4b7	161	no warnings 'io' ;
0453d815	162	write ;
599cee73	163	EXPECT
	164	page overflow at - line 13.
	165	########
767a6a26	166	# pp_sys.c [pp_prtf]
4438c4b7	167	use warnings 'unopened' ;
599cee73	168	$a = "abc";
0453d815	169	printf $a "fred";
4438c4b7	170	no warnings 'unopened' ;
0453d815	171	printf $a "fred";
599cee73	172	EXPECT
2dd78f96	173	printf() on unopened filehandle abc at - line 4.
599cee73	174	########
767a6a26	175	# pp_sys.c [pp_prtf]
4438c4b7	176	use warnings 'closed' ;
599cee73	177	close STDIN ;
0453d815	178	printf STDIN "fred";
69282e91	179	opendir STDIN, ".";
	180	printf STDIN "fred";
	181	closedir STDIN;
4438c4b7	182	no warnings 'closed' ;
0453d815	183	printf STDIN "fred";
69282e91	184	opendir STDIN, ".";
69282e91	185	printf STDIN "fred";
599cee73	186	EXPECT
43693395	187	printf() on closed filehandle STDIN at - line 4.
	188	printf() on closed filehandle STDIN at - line 6.
	189	(Are you trying to call printf() on dirhandle STDIN?)
599cee73	190	########
767a6a26	191	# pp_sys.c [pp_prtf]
4438c4b7	192	use warnings 'io' ;
0453d815	193	printf STDIN "fred";
4438c4b7	194	no warnings 'io' ;
0453d815	195	printf STDIN "fred";
599cee73	196	EXPECT
43693395	197	Filehandle STDIN opened only for input at - line 3.
599cee73	198	########
767a6a26	199	# pp_sys.c [pp_send]
cf167416	200	use warnings 'io' ;
	201	syswrite STDIN, "fred";
	202	no warnings 'io' ;
	203	syswrite STDIN, "fred";
	204	EXPECT
	205	Filehandle STDIN opened only for input at - line 3.
	206	########
	207	# pp_sys.c [pp_send]
4438c4b7	208	use warnings 'closed' ;
599cee73	209	close STDIN;
599cee73	210	syswrite STDIN, "fred", 1;
69282e91	211	opendir STDIN, ".";
	212	syswrite STDIN, "fred", 1;
	213	closedir STDIN;
4438c4b7	214	no warnings 'closed' ;
0453d815	215	syswrite STDIN, "fred", 1;
69282e91	216	opendir STDIN, ".";
69282e91	217	syswrite STDIN, "fred", 1;
599cee73	218	EXPECT
43693395	219	syswrite() on closed filehandle STDIN at - line 4.
	220	syswrite() on closed filehandle STDIN at - line 6.
	221	(Are you trying to call syswrite() on dirhandle STDIN?)
69282e91	222	########
69282e91	223	# pp_sys.c [pp_flock]
f0963acb	224	use Config;
f0963acb	225	BEGIN {
9bdf8ebc	226	if ( !$Config{d_flock} &&
	227	!$Config{d_fcntl_can_lock} &&
	228	!$Config{d_lockf} ) {
f0963acb	229	print <<EOM ;
	230	SKIPPED
	231	# flock not present
	232	EOM
	233	exit ;
	234	}
	235	}
bc37a18f	236	use warnings qw(unopened closed);
69282e91	237	close STDIN;
	238	flock STDIN, 8;
	239	opendir STDIN, ".";
	240	flock STDIN, 8;
bc37a18f	241	flock FOO, 8;
	242	flock $a, 8;
	243	no warnings qw(unopened closed);
69282e91	244	flock STDIN, 8;
	245	opendir STDIN, ".";
	246	flock STDIN, 8;
bc37a18f	247	flock FOO, 8;
bc37a18f	248	flock $a, 8;
69282e91	249	EXPECT
43693395	250	flock() on closed filehandle STDIN at - line 16.
c934501c	251	flock() on closed filehandle STDIN at - line 18.
43693395	252	(Are you trying to call flock() on dirhandle STDIN?)
c934501c	253	flock() on unopened filehandle FOO at - line 19.
c934501c	254	flock() on unopened filehandle at - line 20.
599cee73	255	########
767a6a26	256	# pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
4438c4b7	257	use warnings 'io' ;
599cee73	258	use Config;
	259	BEGIN {
	260	if ( $^O ne 'VMS' and ! $Config{d_socket}) {
	261	print <<EOM ;
	262	SKIPPED
	263	# send not present
	264	# bind not present
	265	# connect not present
	266	# accept not present
	267	# shutdown not present
	268	# setsockopt not present
	269	# getsockopt not present
	270	# getsockname not present
	271	# getpeername not present
	272	EOM
	273	exit ;
	274	}
	275	}
	276	close STDIN;
	277	send STDIN, "fred", 1;
	278	bind STDIN, "fred" ;
	279	connect STDIN, "fred" ;
	280	listen STDIN, 2;
69282e91	281	accept "fred", STDIN;
	282	shutdown STDIN, 0;
	283	setsockopt STDIN, 1,2,3;
	284	getsockopt STDIN, 1,2;
	285	getsockname STDIN;
	286	getpeername STDIN;
	287	opendir STDIN, ".";
	288	send STDIN, "fred", 1;
	289	bind STDIN, "fred" ;
	290	connect STDIN, "fred" ;
	291	listen STDIN, 2;
	292	accept "fred", STDIN;
599cee73	293	shutdown STDIN, 0;
	294	setsockopt STDIN, 1,2,3;
	295	getsockopt STDIN, 1,2;
	296	getsockname STDIN;
	297	getpeername STDIN;
69282e91	298	closedir STDIN;
4438c4b7	299	no warnings 'io' ;
0453d815	300	send STDIN, "fred", 1;
	301	bind STDIN, "fred" ;
	302	connect STDIN, "fred" ;
	303	listen STDIN, 2;
	304	accept STDIN, "fred" ;
	305	shutdown STDIN, 0;
	306	setsockopt STDIN, 1,2,3;
	307	getsockopt STDIN, 1,2;
	308	getsockname STDIN;
	309	getpeername STDIN;
69282e91	310	opendir STDIN, ".";
	311	send STDIN, "fred", 1;
	312	bind STDIN, "fred" ;
	313	connect STDIN, "fred" ;
	314	listen STDIN, 2;
	315	accept "fred", STDIN;
	316	shutdown STDIN, 0;
	317	setsockopt STDIN, 1,2,3;
	318	getsockopt STDIN, 1,2;
	319	getsockname STDIN;
	320	getpeername STDIN;
599cee73	321	EXPECT
43693395	322	send() on closed socket STDIN at - line 22.
	323	bind() on closed socket STDIN at - line 23.
	324	connect() on closed socket STDIN at - line 24.
	325	listen() on closed socket STDIN at - line 25.
	326	accept() on closed socket STDIN at - line 26.
	327	shutdown() on closed socket STDIN at - line 27.
	328	setsockopt() on closed socket STDIN at - line 28.
	329	getsockopt() on closed socket STDIN at - line 29.
	330	getsockname() on closed socket STDIN at - line 30.
	331	getpeername() on closed socket STDIN at - line 31.
	332	send() on closed socket STDIN at - line 33.
	333	(Are you trying to call send() on dirhandle STDIN?)
	334	bind() on closed socket STDIN at - line 34.
	335	(Are you trying to call bind() on dirhandle STDIN?)
	336	connect() on closed socket STDIN at - line 35.
	337	(Are you trying to call connect() on dirhandle STDIN?)
	338	listen() on closed socket STDIN at - line 36.
	339	(Are you trying to call listen() on dirhandle STDIN?)
	340	accept() on closed socket STDIN at - line 37.
	341	(Are you trying to call accept() on dirhandle STDIN?)
	342	shutdown() on closed socket STDIN at - line 38.
	343	(Are you trying to call shutdown() on dirhandle STDIN?)
	344	setsockopt() on closed socket STDIN at - line 39.
	345	(Are you trying to call setsockopt() on dirhandle STDIN?)
	346	getsockopt() on closed socket STDIN at - line 40.
	347	(Are you trying to call getsockopt() on dirhandle STDIN?)
	348	getsockname() on closed socket STDIN at - line 41.
	349	(Are you trying to call getsockname() on dirhandle STDIN?)
	350	getpeername() on closed socket STDIN at - line 42.
	351	(Are you trying to call getpeername() on dirhandle STDIN?)
599cee73	352	########
767a6a26	353	# pp_sys.c [pp_stat]
4438c4b7	354	use warnings 'newline' ;
599cee73	355	stat "abc\ndef";
4438c4b7	356	no warnings 'newline' ;
0453d815	357	stat "abc\ndef";
599cee73	358	EXPECT
	359	Unsuccessful stat on filename containing newline at - line 3.
	360	########
767a6a26	361	# pp_sys.c [pp_fttext]
2dd78f96	362	use warnings qw(unopened closed) ;
599cee73	363	close STDIN ;
599cee73	364	-T STDIN ;
9ddeeac9	365	stat(STDIN) ;
2dd78f96	366	-T HOCUS;
	367	stat(POCUS);
	368	no warnings qw(unopened closed) ;
0453d815	369	-T STDIN ;
9ddeeac9	370	stat(STDIN);
2dd78f96	371	-T HOCUS;
2dd78f96	372	stat(POCUS);
599cee73	373	EXPECT
2dd78f96	374	-T on closed filehandle STDIN at - line 4.
	375	stat() on closed filehandle STDIN at - line 5.
	376	-T on unopened filehandle HOCUS at - line 6.
	377	stat() on unopened filehandle POCUS at - line 7.
599cee73	378	########
767a6a26	379	# pp_sys.c [pp_fttext]
4438c4b7	380	use warnings 'newline' ;
599cee73	381	-T "abc\ndef" ;
4438c4b7	382	no warnings 'newline' ;
0453d815	383	-T "abc\ndef" ;
599cee73	384	EXPECT
599cee73	385	Unsuccessful open on filename containing newline at - line 3.
767a6a26	386	########
	387	# pp_sys.c [pp_sysread]
	388	use warnings 'io' ;
6bbf1b34	389	if ($^O eq 'dos') {
	390	print <<EOM ;
	391	SKIPPED
	392	# skipped on dos
	393	EOM
	394	exit ;
	395	}
767a6a26	396	my $file = "./xcv" ;
	397	open(F, ">$file") ;
	398	my $a = sysread(F, $a,10) ;
	399	no warnings 'io' ;
	400	my $a = sysread(F, $a,10) ;
	401	close F ;
b5fe5ca2	402	use warnings 'io' ;
	403	sysread(F, $a, 10);
	404	read(F, $a, 10);
	405	sysread(NONEXISTENT, $a, 10);
	406	read(NONEXISTENT, $a, 10);
767a6a26	407	unlink $file ;
767a6a26	408	EXPECT
c6f2523f	409	Filehandle F opened only for output at - line 12.
b5fe5ca2	410	sysread() on closed filehandle F at - line 17.
	411	read() on closed filehandle F at - line 18.
	412	sysread() on unopened filehandle NONEXISTENT at - line 19.
	413	read() on unopened filehandle NONEXISTENT at - line 20.
c289d2f7	414	########
	415	# pp_sys.c [pp_binmode]
	416	use warnings 'unopened' ;
	417	binmode(BLARG);
	418	$a = "BLERG";binmode($a);
	419	EXPECT
	420	binmode() on unopened filehandle BLARG at - line 3.
	421	binmode() on unopened filehandle at - line 4.
5d3e98de	422	########
	423	# pp_sys.c [pp_lstat]
	424	use warnings 'io';
365c80fa	425	open FH, "harness" or die "# $!";
365c80fa	426	lstat FH;
5d3e98de	427	open my $fh, $0 or die "# $!";
	428	lstat $fh;
	429	no warnings 'io';
365c80fa	430	lstat FH;
5d3e98de	431	lstat $fh;
365c80fa	432	close FH;
5d3e98de	433	close $fh;
5d3e98de	434	EXPECT
365c80fa	435	lstat() on filehandle FH at - line 4.
365c80fa	436	lstat() on filehandle $fh at - line 6.
90133b69	437	########
	438	# pp_sys.c [pp_getc]
	439	use warnings qw(unopened closed) ;
	440	getc FOO;
	441	close STDIN;
	442	getc STDIN;
97e322ff	443	# Create an empty file
	444	$file = 'getcwarn.tmp';
	445	open FH1, ">$file" or die "# $!"; close FH1;
	446	open FH2, $file or die "# $!";
	447	getc FH2; # Should not warn at EOF
	448	close FH2;
	449	getc FH2; # Warns, now
	450	unlink $file;
90133b69	451	no warnings qw(unopened closed) ;
	452	getc FOO;
	453	getc STDIN;
97e322ff	454	getc FH2;
90133b69	455	EXPECT
	456	getc() on unopened filehandle FOO at - line 3.
	457	getc() on closed filehandle STDIN at - line 5.
97e322ff	458	getc() on closed filehandle FH2 at - line 12.
4ef2275c	459	########
	460	# pp_sys.c [pp_sselect]
	461	use warnings 'misc';
	462	$x = 1;
ce712ebb	463	select $x, undef, undef, 1;
4ef2275c	464	no warnings 'misc';
ce712ebb	465	select $x, undef, undef, 1;
4ef2275c	466	EXPECT
4ef2275c	467	Non-string passed as bitmask at - line 4.
4dc171f0	468	########
8aee01e7	469	use Config;
	470	BEGIN {
	471	if (!$Config{d_fchdir}) {
	472	print <<EOM;
	473	SKIPPED
	474	# fchdir not present
	475	EOM
	476	exit;
	477	}
	478	}
4dc171f0	479	opendir FOO, '.'; closedir FOO;
	480	open BAR, '.'; close BAR;
	481	opendir $dh, '.'; closedir $dh;
	482	open $fh, '.'; close $fh;
	483	chdir FOO;
	484	chdir BAR;
	485	chdir $dh;
	486	chdir $fh;
	487	use warnings qw(unopened closed) ;
	488	chdir FOO;
	489	chdir BAR;
	490	chdir $dh;
	491	chdir $fh;
	492	EXPECT
8aee01e7	493	chdir() on unopened filehandle FOO at - line 20.
	494	chdir() on closed filehandle BAR at - line 21.
	495	chdir() on unopened filehandle $dh at - line 22.
	496	chdir() on closed filehandle $fh at - line 23.
abc718f2	497	########
	498	# pp_sys.c [pp_open]
	499	use warnings;
	500	opendir FOO, ".";
	501	opendir my $foo, ".";
	502	open FOO, "TEST";
	503	open $foo, "TEST";
	504	no warnings qw(io deprecated);
	505	open FOO, "TEST";
	506	open $foo, "TEST";
	507	EXPECT
	508	Opening dirhandle FOO also as a file at - line 5.
	509	Opening dirhandle $foo also as a file at - line 6.
	510	########
	511	# pp_sys.c [pp_open_dir]
	512	use warnings;
	513	open FOO, "TEST";
	514	open my $foo, "TEST";
	515	opendir FOO, ".";
	516	opendir $foo, ".";
	517	no warnings qw(io deprecated);
	518	opendir FOO, ".";
	519	opendir $foo, ".";
	520	EXPECT
	521	Opening filehandle FOO also as a directory at - line 5.
	522	Opening filehandle $foo also as a directory at - line 6.