|
@ -7,12 +7,15 @@ use strict; |
|
|
use Debconf::Client::ConfModule ':all'; |
|
|
use Debconf::Client::ConfModule ':all'; |
|
|
|
|
|
|
|
|
if ($ARGV[0] && $ARGV[0] eq "configure") { |
|
|
if ($ARGV[0] && $ARGV[0] eq "configure") { |
|
|
|
|
|
|
|
|
if (-d "/usr/doc" && !-e "/usr/doc/make-debian-x11" && |
|
|
if (-d "/usr/doc" && !-e "/usr/doc/make-debian-x11" && |
|
|
-d "/usr/share/doc/make-debian-x11") { |
|
|
-d "/usr/share/doc/make-debian-x11") { |
|
|
system "ln -sf ../share/doc/make-debian-x11 /usr/doc/make-debian-x11"; |
|
|
system "ln -sf ../share/doc/make-debian-x11 /usr/doc/make-debian-x11"; |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $answer = get("make-debian-x11/make_debian_x11"); |
|
|
my $answer = get("make-debian-x11/make_debian_x11"); |
|
|
|
|
|
|
|
|
if ($answer eq "true") { |
|
|
if ($answer eq "true") { |
|
@ -51,6 +54,8 @@ my $zoneinfo = get("make-debian-x11/make_debian_x11-zoneinfo"); |
|
|
close(SCRIPT); |
|
|
close(SCRIPT); |
|
|
} |
|
|
} |
|
|
else { |
|
|
else { |
|
|
|
|
|
# Not a perfect approach, but the swim package will be updated |
|
|
|
|
|
# eventually. |
|
|
print STDERR "Be patient, this will take a little while.\n"; |
|
|
print STDERR "Be patient, this will take a little while.\n"; |
|
|
open (SCRIPT, "|make_debian-X11 2&> /dev/null") |
|
|
open (SCRIPT, "|make_debian-X11 2&> /dev/null") |
|
|
or warn "Couldn't open make_debian-X11\n"; |
|
|
or warn "Couldn't open make_debian-X11\n"; |
|
|