DJGPP updates from Laszlo Molnar.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 16 May 2002 12:16:25 +0000 (12:16 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 16 May 2002 12:16:25 +0000 (12:16 +0000)
p4raw-id: //depot/perl@16619

README.dos
djgpp/djgppsed.sh
lib/File/stat.t
t/op/alarm.t

index 50dedd5..564d54f 100644 (file)
@@ -103,7 +103,7 @@ sockets
 
 =item *
 
-Unpack the source package F<perl5.6*.tar.gz> with djtarx. If you want
+Unpack the source package F<perl5.8*.tar.gz> 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
 
index 6401681..02c4416 100644 (file)
@@ -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
index 7a114ce..c29d9ab 100644 (file)
@@ -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' );
 }
index 384ee1d..8fb9296 100644 (file)
@@ -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)" );
 }