2106dc3789
and PostgreSQL. WWW: http://www.bricolage.cc/ PR: ports/67477 Submitted by: Rod Taylor <rbt@home.rbt.ca>
37 lines
1.1 KiB
Perl
37 lines
1.1 KiB
Perl
--- inst/modules.pl.orig Fri Dec 12 16:14:45 2003
|
|
+++ inst/modules.pl Sat May 22 15:11:30 2004
|
|
@@ -36,6 +36,10 @@
|
|
use File::Spec::Functions;
|
|
use Data::Dumper;
|
|
|
|
+# check whether questions should be asked
|
|
+our $QUIET;
|
|
+$QUIET = 1 if $ARGV[0] and $ARGV[0] eq 'QUIET';
|
|
+
|
|
print "\n\n==> Probing Required Perl Modules <==\n\n";
|
|
|
|
our @MOD;
|
|
@@ -48,9 +52,9 @@
|
|
foreach my $rec (@MOD) {
|
|
$rec->{found} = check_module($rec);
|
|
unless ($rec->{found}) {
|
|
- if ($rec->{optional} and
|
|
- not ask_yesno("Do you want to install the optional module " .
|
|
- "$rec->{name}? [no] ", 0)) {
|
|
+ if ($rec->{optional} and ($QUIET
|
|
+ or not ask_yesno("Do you want to install the optional module " .
|
|
+ "$rec->{name}? [no] ", 0))) {
|
|
$rec->{found} = 1;
|
|
} else {
|
|
$MISSING = 1;
|
|
@@ -73,7 +77,9 @@
|
|
END
|
|
|
|
# for some reason an "exit 1" here doesn't stop the make run.
|
|
- kill(2, $$) unless ask_yesno("Continue? [yes] ", 1);
|
|
+ if ($QUIET or not ask_yesno("Continue? [yes] ", 1)) {
|
|
+ kill(2, $$);
|
|
+ }
|
|
}
|
|
|
|
|