5.5.650 t/pragma/warnings.t problems on dos-djgpp

Hi,

testcase 128 and 241 fails on dos-djgpp. Any idea for a nice
workaround?

thanks, Laszlo
---
ok 127
PROG:
# doio.c [Perl_nextargv]
$^W = 0 ;
my $filename = "./temp" ;
mkdir $filename, 0777
  or die "Cannot create directory $filename: $!\n" ;
{
    local (@ARGV) = ($filename) ;
    local ($^I) = "" ;
    my $x = <> ;
}
{
    no warnings 'inplace' ;
    local (@ARGV) = ($filename) ;
    local ($^I) = "" ;
    my $x = <> ;
}
{
    use warnings 'inplace' ;
    local (@ARGV) = ($filename) ;
    local ($^I) = "" ;
    my $x = <> ;
}
rmdir $filename ;
EXPECTED:
Can't do inplace edit: ./temp is not a regular file at - line 9.
Can't do inplace edit: ./temp is not a regular file at - line 21.
GOT:
Can't open ./temp: No such file or directory (ENOENT) at - line 9.
Can't open ./temp: No such file or directory (ENOENT) at - line 21.
not ok 128
ok 129
ok 240
PROG:
# pp_sys.c [pp_sysread]
use warnings 'io' ;
my $file = "./xcv" ;
open(F, ">$file") ;
my $a = sysread(F, $a,10) ;
no warnings 'io' ;
my $a = sysread(F, $a,10) ;
close F ;
unlink $file ;
EXPECTED:
Filehandle main::F opened only for output at - line 5.
GOT:

not ok 241
ok 242

• 5.5.650 t/pragma/warnings.t problems on dos-djgpp by Laszlo Molnar
• Re: 5.5.650 t/pragma/warnings.t problems on dos-djgpp by Gurusamy Sarathy