Browse Source

Gets rid of some test markers.

master
freesource 24 years ago
parent
commit
5b168775f4
  1. 3
      BootRoot/Yard.pm
  2. 18
      BootRoot/YardBox.pm

3
BootRoot/Yard.pm

@ -1107,7 +1107,7 @@ sub info {
if ($level != 3) { if ($level != 3) {
print LOGFILE @msgs; print LOGFILE @msgs;
} }
$level = 0x if $level == 3; $level = 0 if $level == 3;
my $output = join("",@msgs); my $output = join("",@msgs);
if ($verbosity >= $level) { if ($verbosity >= $level) {
@ -2159,7 +2159,6 @@ BLARD
## - Add a 'noauto' option if it doesn't already have one ## - Add a 'noauto' option if it doesn't already have one
## - Put mountpoint under oldroot ## - Put mountpoint under oldroot
$options .= ',noauto' unless $options =~ /\bnoauto\b/; $options .= ',noauto' unless $options =~ /\bnoauto\b/;
print "$device $mpt\n";
if ($mpt eq '/') { if ($mpt eq '/') {
$mpt = "/"; # limitation of mount cmd $mpt = "/"; # limitation of mount cmd
} else { } else {

18
BootRoot/YardBox.pm

@ -331,7 +331,7 @@ sub strip_all {
$lib_strip_debug->active(0); $lib_strip_debug->active(0);
$strip_bool = 1; $strip_bool = 1;
print "$strip_bool\n"; # print "$strip_bool\n";
} }
@ -339,7 +339,7 @@ sub strip_debug {
$lib_strip_all->active(0); $lib_strip_all->active(0);
$strip_bool = 0; $strip_bool = 0;
print "$strip_bool\n"; # print "$strip_bool\n";
} }
@ -356,7 +356,7 @@ sub stages_one_by_one {
$continuous->active(0); $continuous->active(0);
$user_defined->active(0); $user_defined->active(0);
$stages_bool = "one-by-one"; $stages_bool = "one-by-one";
print "$stages_bool\n"; # print "$stages_bool\n";
} }
@ -366,7 +366,7 @@ sub stages_continuous {
$one_by_one->active(0); $one_by_one->active(0);
$user_defined->active(0); $user_defined->active(0);
$stages_bool = "continuous"; $stages_bool = "continuous";
print "$stages_bool\n"; # print "$stages_bool\n";
} }
@ -375,7 +375,7 @@ sub stages_user_defined {
$one_by_one->active(0); $one_by_one->active(0);
$continuous->active(0); $continuous->active(0);
$stages_bool = "user-defined"; $stages_bool = "user-defined";
print "$stages_bool\n"; # print "$stages_bool\n";
} }
@ -455,7 +455,7 @@ sub which_stage {
} }
} }
for (keys %$continue) { print $_, "=>", $continue->{$_}, "\n"; } # for (keys %$continue) { print $_, "=>", $continue->{$_}, "\n"; }
} # end if one-by-one or continuous } # end if one-by-one or continuous
@ -847,7 +847,7 @@ sub yard_box {
else { else {
$lib_bool++; $lib_bool++;
} }
print "$lib_bool\n"; #print "$lib_bool\n";
} }
); );
@ -875,7 +875,7 @@ sub yard_box {
else { else {
$bin_bool++; $bin_bool++;
} }
print "$bin_bool\n"; #print "$bin_bool\n";
} }
); );
@ -897,7 +897,7 @@ sub yard_box {
else { else {
$mod_bool++; $mod_bool++;
} }
print "$mod_bool\n"; #print "$mod_bool\n";
} }
); );

Loading…
Cancel
Save