|
@ -64,6 +64,7 @@ libterm-readline-gnu-perl); |
|
|
sub stuff { |
|
|
sub stuff { |
|
|
|
|
|
|
|
|
my $stuff = << "STUFF"; |
|
|
my $stuff = << "STUFF"; |
|
|
|
|
|
$Id |
|
|
# Generated by make_debian. |
|
|
# Generated by make_debian. |
|
|
|
|
|
|
|
|
# This template creates a complete Debian system which is more streamlined |
|
|
# This template creates a complete Debian system which is more streamlined |
|
@ -232,6 +233,8 @@ return $stuff; |
|
|
|
|
|
|
|
|
use strict; |
|
|
use strict; |
|
|
use File::Basename; |
|
|
use File::Basename; |
|
|
|
|
|
my $rm = "\$"; |
|
|
|
|
|
$main::Id = "# \$Id$rm"; |
|
|
my $sbin = grep(/\/usr\/sbin/,$ENV{'PATH'}); |
|
|
my $sbin = grep(/\/usr\/sbin/,$ENV{'PATH'}); |
|
|
if ($sbin == 0) { |
|
|
if ($sbin == 0) { |
|
|
$ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'}; |
|
|
$ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'}; |
|
|