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
|
--- ./Makefile.PL.orig 2014-07-27 08:07:00.036965435 +0100
+++ ./Makefile.PL 2014-07-27 08:05:30.848965659 +0100
@@ -1031,14 +1031,14 @@
# Guess a default value for {install} based on whether
# prerequisites were found.
#
- $info->{install} = (not $info->{exclude}) && ($opt_yes || not $info->{missing});
+ $info->{install} = 1;(not $info->{exclude}) && ($opt_yes || not $info->{missing});
print STDERR ($s, ' ' x (1 + $width - length $s),
$info->{install} ? '[yes]' : '[no]',
"\n");
}
print STDERR "\n";
- if (not ask(0, 'Do you want to proceed with this configuration?', 1)) {
+ if (1 or not ask(0, 'Do you want to proceed with this configuration?', 1)) {
# Need to set {install} for each component by prompting.
foreach my $info (@opt_components) {
my $missing = $info->{missing};
@@ -1067,8 +1067,8 @@
die;
}
- $info->{install} =
- ask(0, $msg, not $missing);
+ $info->{install} = 1;
+ # ask(0, $msg, not $missing);
}
}
}
@@ -1272,8 +1272,8 @@
}
# Remove existing non-working 'uninstall' target.
- $inherited =~ s!^uninstall\s:.*$!!m
- or die "no uninstall target in: $inherited";
+ $inherited =~ s!^uninstall\s::?.*?\n\t+.*$!!m;
+ $inherited =~ s!^uninstall\s:.*$!!m;
# For each *_install create a corresponding _uninstall.
my $targets = ::targets($inherited);
|
