--- t/exit.t;-0	2009-07-02 13:57:18 -0500
+++ t/exit.t	2009-07-02 18:04:33 -0500
@@ -49,6 +49,10 @@ my %Exit_Map;
 
 open my $fh, ">", "exit_map_test" or die $!;
 print $fh <<'DONE';
+if ($^O eq 'VMS') {
+    require vmsish;
+    import vmsish qw(hushed);
+}
 my $exit = shift;
 print "exit $exit\n";
 END { $? = $exit };
--- t/Builder/fork_with_new_stdout.t;-0	2009-07-02 13:57:18 -0500
+++ t/Builder/fork_with_new_stdout.t	2009-07-02 17:39:08 -0500
@@ -3,10 +3,23 @@ use strict;
 use warnings;
 use IO::Pipe;
 use Test::Builder;
+use Config;
 
 my $b = Test::Builder->new;
 $b->reset;
-$b->plan('tests' => 2);
+
+my $Can_Fork = $Config{d_fork} ||
+               (($^O eq 'MSWin32' || $^O eq 'NetWare') and
+                $Config{useithreads} and
+                $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
+               );
+
+if( !$Can_Fork ) {
+    $b->plan('skip_all' => "This system cannot fork");
+}
+else {
+    $b->plan('tests' => 2);
+}
 
 my $pipe = IO::Pipe->new;
 if ( my $pid = fork ) {