1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
$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';
|