path: root/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]

  %s too large					[pp_gmtime]

  %s failed					[pp_gmtime]

__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 =
.
format FOO =
.
close STDIN;
write STDIN;
write FOO;
opendir STDIN, ".";
write STDIN;
closedir STDIN;
opendir FOO, ".";
write FOO;
closedir FOO;
no warnings 'closed' ;
write STDIN;
write FOO;
opendir STDIN, ".";
opendir FOO, ".";
write STDIN;
write FOO;
EXPECT
write() on closed filehandle STDIN at - line 8.
write() on closed filehandle STDIN at - line 11.
	(Are you trying to call write() on dirhandle STDIN?)
########
# pp_sys.c [pp_leavewrite]
use warnings 'unopened';
format STDIN =
.
format FOO =
.
close STDIN;
write STDIN;
write FOO;
opendir STDIN, ".";
write STDIN;
closedir STDIN;
opendir FOO, ".";
write FOO;
closedir FOO;
no warnings 'unopened';
write STDIN;
write FOO;
opendir STDIN, ".";
opendir FOO, ".";
write STDIN;
write FOO;
EXPECT
write() on unopened filehandle FOO at - line 9.
write() on unopened filehandle FOO at - line 14.
	(Are you trying to call write() on dirhandle FOO?)
########
# 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 'closed';
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;
send FOO, "fred", 1;
bind FOO, "fred" ;
connect FOO, "fred" ;
listen FOO, 2;
accept "fred", FOO;
shutdown FOO, 0;
setsockopt FOO, 1,2,3;
getsockopt FOO, 1,2;
getsockname FOO;
getpeername FOO;
opendir FOO, ".";
send FOO, "fred", 1;
bind FOO, "fred" ;
connect FOO, "fred" ;
listen FOO, 2;
accept "fred", FOO;
shutdown FOO, 0;
setsockopt FOO, 1,2,3;
getsockopt FOO, 1,2;
getsockname FOO;
getpeername FOO;
closedir FOO;
no warnings 'closed';
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;
send FOO, "fred", 1;
bind FOO, "fred" ;
connect FOO, "fred" ;
listen FOO, 2;
accept FOO, "fred" ;
shutdown FOO, 0;
setsockopt FOO, 1,2,3;
getsockopt FOO, 1,2;
getsockname FOO;
getpeername FOO;
opendir FOO, ".";
send FOO, "fred", 1;
bind FOO, "fred" ;
connect FOO, "fred" ;
listen FOO, 2;
accept "fred", FOO;
shutdown FOO, 0;
setsockopt FOO, 1,2,3;
getsockopt FOO, 1,2;
getsockname FOO;
getpeername FOO;
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_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
use warnings 'unopened';
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;
send FOO, "fred", 1;
bind FOO, "fred" ;
connect FOO, "fred" ;
listen FOO, 2;
accept "fred", FOO;
shutdown FOO, 0;
setsockopt FOO, 1,2,3;
getsockopt FOO, 1,2;
getsockname FOO;
getpeername FOO;
opendir FOO, ".";
send FOO, "fred", 1;
bind FOO, "fred" ;
connect FOO, "fred" ;
listen FOO, 2;
accept "fred", FOO;
shutdown FOO, 0;
setsockopt FOO, 1,2,3;
getsockopt FOO, 1,2;
getsockname FOO;
getpeername FOO;
closedir FOO;
no warnings 'unopened';
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;
send FOO, "fred", 1;
bind FOO, "fred" ;
connect FOO, "fred" ;
listen FOO, 2;
accept FOO, "fred" ;
shutdown FOO, 0;
setsockopt FOO, 1,2,3;
getsockopt FOO, 1,2;
getsockname FOO;
getpeername FOO;
opendir FOO, ".";
send FOO, "fred", 1;
bind FOO, "fred" ;
connect FOO, "fred" ;
listen FOO, 2;
accept "fred", FOO;
shutdown FOO, 0;
setsockopt FOO, 1,2,3;
getsockopt FOO, 1,2;
getsockname FOO;
getpeername FOO;
EXPECT
send() on unopened socket FOO at - line 44.
bind() on unopened socket FOO at - line 45.
connect() on unopened socket FOO at - line 46.
listen() on unopened socket FOO at - line 47.
accept() on unopened socket FOO at - line 48.
shutdown() on unopened socket FOO at - line 49.
setsockopt() on unopened socket FOO at - line 50.
getsockopt() on unopened socket FOO at - line 51.
getsockname() on unopened socket FOO at - line 52.
getpeername() on unopened socket FOO at - line 53.
send() on unopened socket FOO at - line 55.
	(Are you trying to call send() on dirhandle FOO?)
bind() on unopened socket FOO at - line 56.
	(Are you trying to call bind() on dirhandle FOO?)
connect() on unopened socket FOO at - line 57.
	(Are you trying to call connect() on dirhandle FOO?)
listen() on unopened socket FOO at - line 58.
	(Are you trying to call listen() on dirhandle FOO?)
accept() on unopened socket FOO at - line 59.
	(Are you trying to call accept() on dirhandle FOO?)
shutdown() on unopened socket FOO at - line 60.
	(Are you trying to call shutdown() on dirhandle FOO?)
setsockopt() on unopened socket FOO at - line 61.
	(Are you trying to call setsockopt() on dirhandle FOO?)
getsockopt() on unopened socket FOO at - line 62.
	(Are you trying to call getsockopt() on dirhandle FOO?)
getsockname() on unopened socket FOO at - line 63.
	(Are you trying to call getsockname() on dirhandle FOO?)
getpeername() on unopened socket FOO at - line 64.
	(Are you trying to call getpeername() on dirhandle FOO?)
########
# pp_sys.c [pp_stat]
use warnings 'newline' ;
stat "abc\ndef";
stat "abcdef\n";
stat "abcdef\n\0";
no warnings 'newline' ;
stat "abc\ndef";
stat "abcdef\n";
stat "abcdef\n\0";
EXPECT
Unsuccessful stat on filename containing newline at - line 4.
Unsuccessful stat on filename containing newline at - line 5.
########
# pp_sys.c [pp_fttext]
use warnings qw(unopened closed) ;
close STDIN ; 
-T STDIN ;
stat(STDIN) ;
-T HOCUS;
stat(POCUS);
stat "../test.pl";
stat *foo;
no warnings qw(unopened closed) ;
-T STDIN ;
stat(STDIN);
-T HOCUS;
stat(POCUS);
stat "../test.pl";
stat *foo;
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.
stat() on unopened filehandle foo at - line 9.
########
# pp_sys.c [pp_fttext]
use warnings 'newline' ;
-T "abc\ndef" ;
-T "abcdef\n" ;
-T "abcdef\n\0" ;
no warnings 'newline' ;
-T "abc\ndef" ;
-T "abcdef\n" ;
-T "abcdef\n\0" ;
EXPECT
Unsuccessful open on filename containing newline at - line 4.
Unsuccessful open on filename containing newline at - line 5.
########
# 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") ; 
binmode F;
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 13.
sysread() on closed filehandle F at - line 18.
read() on closed filehandle F at - line 19.
sysread() on unopened filehandle NONEXISTENT at - line 20.
read() on unopened filehandle NONEXISTENT at - line 21.
########
# 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;
lstat *FH;
lstat \*FH;
open my $fh, $0 or die "# $!";
lstat $fh;
lstat *FH{IO};
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 5.
lstat() on filehandle FH at - line 6.
lstat() on filehandle $fh at - line 8.
lstat() on filehandle at - line 9.
########

# pp_sys.c [pp_lstat]
use warnings 'io';
use utf8;
use open qw( :utf8 :std );
open ᶠḨ, "../harness" or die "# $!";
lstat ᶠḨ;
open my $ｆᚺ, $0 or die "# $!";
lstat $ｆᚺ;
no warnings 'io';
lstat ᶠḨ;
lstat $ｆᚺ;
close ᶠḨ;
close $ｆᚺ;
EXPECT
lstat() on filehandle ᶠḨ at - line 7.
lstat() on filehandle $ｆᚺ at - line 9.
########
# 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;
sub TIESCALAR{bless[]} sub FETCH {"hello"} sub STORE{}
tie $y, "";
select $y, 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, "../harness";
open $foo, "../harness";
no warnings qw(io deprecated);
open FOO, "../harness";
open $foo, "../harness";
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]
use utf8;
use open qw( :utf8 :std );
use warnings;
opendir ＦＯＯ, ".";
opendir $ｆｏｏ, ".";
open ＦＯＯ, "../harness";
open $ｆｏｏ, "../harness";
no warnings qw(io deprecated);
open ＦＯＯ, "../harness";
open $ｆｏｏ, "../harness";
EXPECT
Opening dirhandle ＦＯＯ also as a file at - line 8.
Opening dirhandle $ｆｏｏ also as a file at - line 9.
########
# pp_sys.c [pp_open_dir]
use warnings;
open FOO, "../harness";
open my $foo, "../harness";
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.
########

# pp_sys.c [pp_open_dir]
use utf8;
use open qw( :utf8 :std );
use warnings;
use warnings;
open ＦＯＯ, "../harness";
open $ｆｏｏ, "../harness";
opendir ＦＯＯ, ".";
opendir $ｆｏｏ, ".";
no warnings qw(io deprecated);
opendir ＦＯＯ, ".";
opendir $ｆｏｏ, ".";
EXPECT
Opening filehandle ＦＯＯ also as a directory at - line 9.
Opening filehandle $ｆｏｏ also as a directory at - line 10.
########
# pp_sys.c [pp_*dir]
use Config ;
BEGIN {
    if ( ! $Config{d_telldir}) {
        print <<EOM ;
SKIPPED
# telldir not present
EOM
        exit
    }
}
#line 2
use warnings 'io';
opendir FOO, ".";
opendir $foo, ".";
closedir FOO;
closedir $foo;

readdir(FOO);
telldir(FOO);
seekdir(FOO, 0);
rewinddir(FOO);
closedir(FOO);

readdir($foo);
telldir($foo);
seekdir($foo, 0);
rewinddir($foo);
closedir($foo);

EXPECT
readdir() attempted on invalid dirhandle FOO at - line 8.
telldir() attempted on invalid dirhandle FOO at - line 9.
seekdir() attempted on invalid dirhandle FOO at - line 10.
rewinddir() attempted on invalid dirhandle FOO at - line 11.
closedir() attempted on invalid dirhandle FOO at - line 12.
readdir() attempted on invalid dirhandle $foo at - line 14.
telldir() attempted on invalid dirhandle $foo at - line 15.
seekdir() attempted on invalid dirhandle $foo at - line 16.
rewinddir() attempted on invalid dirhandle $foo at - line 17.
closedir() attempted on invalid dirhandle $foo at - line 18.
########

# pp_sys.c [pp_*dir]
use Config ;
BEGIN {
    if ( ! $Config{d_telldir}) {
        print <<EOM ;
SKIPPED
# telldir not present
EOM
        exit
    }
}
#line 3
use utf8;
use open qw( :utf8 :std );
use warnings 'io';
opendir ＦＯＯ, ".";
opendir $ｆｏｏ, ".";
opendir ＦＯＯ, ".";
opendir $ｆｏｏ, ".";
closedir ＦＯＯ;
closedir $ｆｏｏ;

readdir(ＦＯＯ);
telldir(ＦＯＯ);
seekdir(ＦＯＯ, 0);
rewinddir(ＦＯＯ);
closedir(ＦＯＯ);

readdir($ｆｏｏ);
telldir($ｆｏｏ);
seekdir($ｆｏｏ, 0);
rewinddir($ｆｏｏ);
closedir($ｆｏｏ);

EXPECT
readdir() attempted on invalid dirhandle ＦＯＯ at - line 13.
telldir() attempted on invalid dirhandle ＦＯＯ at - line 14.
seekdir() attempted on invalid dirhandle ＦＯＯ at - line 15.
rewinddir() attempted on invalid dirhandle ＦＯＯ at - line 16.
closedir() attempted on invalid dirhandle ＦＯＯ at - line 17.
readdir() attempted on invalid dirhandle $ｆｏｏ at - line 19.
telldir() attempted on invalid dirhandle $ｆｏｏ at - line 20.
seekdir() attempted on invalid dirhandle $ｆｏｏ at - line 21.
rewinddir() attempted on invalid dirhandle $ｆｏｏ at - line 22.
closedir() attempted on invalid dirhandle $ｆｏｏ at - line 23.
########

# pp_sys.c [pp_gmtime]
use Config;
unless ($Config{d_double_has_nan}) {
    print <<EOM ;
SKIPPED
# No nan support
EOM
    exit ;
}
gmtime("NaN");
localtime("NaN");
use warnings "overflow";
gmtime("NaN");
localtime("NaN");

EXPECT
gmtime(NaN) too large at - line 14.
gmtime(NaN) failed at - line 14.
localtime(NaN) too large at - line 15.
localtime(NaN) failed at - line 15.

########
# pp_sys.c [pp_alarm]
alarm(-1);
no warnings "misc";
alarm(-1);

EXPECT
alarm() with negative argument at - line 2.

########
# pp_sys.c [pp_sleep]
sleep(-1);
no warnings "misc";
sleep(-1);

EXPECT
sleep() with negative argument at - line 2.
########
# NAME sysread() deprecated on :utf8
use warnings 'deprecated';
open my $fh, "<:raw", "../harness" or die "# $!";
my $buf;
sysread $fh, $buf, 10;
binmode $fh, ':utf8';
sysread $fh, $buf, 10;
EXPECT
sysread() is deprecated on :utf8 handles at - line 6.
########
# NAME syswrite() deprecated on :utf8
my $file = "syswwarn.tmp";
use warnings 'deprecated';
open my $fh, ">:raw", $file or die "# $!";
syswrite $fh, 'ABC';
binmode $fh, ':utf8';
syswrite $fh, 'ABC';
close $fh;
unlink $file;
EXPECT
syswrite() is deprecated on :utf8 handles at - line 6.