$NetBSD: patch-aa,v 1.3 2006/09/16 15:29:36 hira Exp $

--- Makefile.PL.orig	2006-08-06 13:49:57.000000000 +0100
+++ Makefile.PL	2006-08-06 13:51:08.000000000 +0100
@@ -163,76 +163,8 @@
     exit 1;
 }
 
-print <<'OPTIONAL';
-
-* Now, let me ask you whether you want some optional modules to be
-* installed as well.  You can always install these modules later, by
-* hand, without a need to re-install MailBox.
-*
-OPTIONAL
-
-foreach my $optional (@optional)
-{   my ($module, $version, %args) = @$optional;
-    my $requirements = $args{requires} || sub {1};
-    next unless $requirements->();
-
-    print "\n";
-    eval "require $module";
-    if($@)
-    {   if($@ =~ m/^Can't locate /)
-             { print "**** Optional $module is not installed\n"        }
-        else { print "**** Optional $module compilation failed:\n$@\n" }
-    }
-    elsif($module->VERSION < $version )
-    {   print "**** Optional $module too old: requires $version but is ",
-            $module->VERSION,"\n";
-    }
-    else
-    {   my $v = $module->VERSION;
-        my $r = $v eq $version ? ''
-              : $version == 0  ? " (any version will do)"
-              :                  " (at least $version required)";
-
-        print "**** Found optional $module version $v$r\n";
-        next;
-    }
-
-    my $reason = $args{reason};
-    $reason =~ s/^/     /gm;
-    $reason =~ s/\A    /Use:/;
-    print $reason;
-
-    if(my $warn = $args{warning})
-    {   $warn =~ s/^/     /gm;
-        $warn =~ s/\A    /WARN/;
-        print $warn;
-    }
-    
-    my $install = $default_install_answer
-               || prompt( "Do you want to install $module? yes/no/all"
-                        , -t STDIN ? 'y' : 'n');
-
-    $install = $default_install_answer = 'y'
-        if $install eq 'a';
-
-    next unless $install eq 'y';
-
-    my $distr = $args{distr} || $module;
-
-    $prereq{$distr} = $version;
-    print "     Added $distr version $version to the requirements\n";
-}
-
-my $tests = $ENV{MAILBOX_RUN_TESTS}
-         || prompt "Do you want to run the (large set of) tests? yes/no", "yes";
-
-if($tests =~ m/n/i)
-{   open F, ">", "skiptests";
-    close F;
-}
-else
-{   unlink "skiptests";
-}
+open F, ">", "skiptests";
+close F;
 
 print <<'MAKEFILE';