From: Jarkko Hietaniemi Date: Thu, 16 May 2002 12:16:25 +0000 (+0000) Subject: DJGPP updates from Laszlo Molnar. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=afdf87ad777c69602cae38888da5fa4053d5b7f7;p=p5sagit%2Fp5-mst-13.2.git DJGPP updates from Laszlo Molnar. p4raw-id: //depot/perl@16619 --- diff --git a/README.dos b/README.dos index 50dedd5..564d54f 100644 --- a/README.dos +++ b/README.dos @@ -103,7 +103,7 @@ sockets =item * -Unpack the source package F with djtarx. If you want +Unpack the source package F with djtarx. If you want to use long file names under w95 and also to get Perl to pass all its tests, don't forget to use diff --git a/djgpp/djgppsed.sh b/djgpp/djgppsed.sh index 6401681..02c4416 100644 --- a/djgpp/djgppsed.sh +++ b/djgpp/djgppsed.sh @@ -46,3 +46,4 @@ sed -e $SPACKLIST lib/ExtUtils/Installed.pm >s; mv -f s lib/ExtUtils/Installed.p sed -e $SPACKLIST lib/ExtUtils/Packlist.pm >s; mv -f s lib/ExtUtils/Packlist.pm sed -e $SABC t/io/iprefix.t >s; mv -f s t/io/iprefix.t sed -e 's=L_ctermid==g' ext/POSIX/Makefile.PL >s; mv -f s ext/POSIX/Makefile.PL +sed -e $SPACKLIST lib/ExtUtils/t/Installed.t >s; mv -f s lib/ExtUtils/t/Installed.t diff --git a/lib/File/stat.t b/lib/File/stat.t index 7a114ce..c29d9ab 100644 --- a/lib/File/stat.t +++ b/lib/File/stat.t @@ -74,6 +74,7 @@ SKIP: { } main::skip("Win32: different stat-info on filehandle", 1) if $^O eq 'MSWin32'; + main::skip("dos: inode number is fake on dos", 1) if $^O eq 'dos'; main::is( "@$stat", "@$stat3", '... and must match normal stat' ); } diff --git a/t/op/alarm.t b/t/op/alarm.t index 384ee1d..8fb9296 100644 --- a/t/op/alarm.t +++ b/t/op/alarm.t @@ -46,6 +46,6 @@ is( $@, "ALARM!\n", 'alarm w/$SIG{ALRM} vs system()' ); { local $TODO = "Why does system() block alarm() on $^O?" - if $^O eq 'VMS' || $^O eq'MacOS'; + if $^O eq 'VMS' || $^O eq'MacOS' || $^O eq 'dos'; ok( abs($diff - 3) <= 1, " right time (waited $diff secs for 3-sec alarm)" ); }