summaryrefslogtreecommitdiffstats
path: root/globetrotter/make_live
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-29 02:09:35 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-29 02:09:35 +0000
commit5144d0d8845e91d41bf8c25c04eae7f517596060 (patch)
tree48bc96bfdec0c75755325e155a1bf02419d3a57e /globetrotter/make_live
parent84708674646b581c57c83738dc3a2fb5bc17a42c (diff)
downloaddrakx-5144d0d8845e91d41bf8c25c04eae7f517596060.tar
drakx-5144d0d8845e91d41bf8c25c04eae7f517596060.tar.gz
drakx-5144d0d8845e91d41bf8c25c04eae7f517596060.tar.bz2
drakx-5144d0d8845e91d41bf8c25c04eae7f517596060.tar.xz
drakx-5144d0d8845e91d41bf8c25c04eae7f517596060.zip
perl_checker cleanups
Diffstat (limited to 'globetrotter/make_live')
-rwxr-xr-xglobetrotter/make_live6
1 files changed, 3 insertions, 3 deletions
diff --git a/globetrotter/make_live b/globetrotter/make_live
index 4cfe93224..f2d5f0299 100755
--- a/globetrotter/make_live
+++ b/globetrotter/make_live
@@ -116,10 +116,10 @@ if ($rescue) {
print "Looking for the package partition\n";
my @parts = partition_table::get_normal_parts($hd);
my $pkg_dev = find { member(fs::type2fs($_), qw(ext2 ext3)) && chomp_(`e2label /dev/$_->{device} 2>/dev/root`) eq "MDK-PKGS" } @parts;
- die "I cannot find the package partition which is needed in order to restore the system!" if is_empty_hash_ref($pkg_dev) || !$pkg_dev->{device} ;
+ die "I cannot find the package partition which is needed in order to restore the system!" if is_empty_hash_ref($pkg_dev) || !$pkg_dev->{device};
my $root = find { member(fs::type2fs($_), qw(ext2 ext3)) && chomp_(`e2label /dev/$_->{device} 2>/dev/root`) eq "MDK-ROOT" } @parts;
$root = find { $_->{device} eq "sda1" } @parts if is_empty_hash_ref($root);
- die "I cannot find any hard disk to restore!" if is_empty_hash_ref($root) || !$root->{device} ;
+ die "I cannot find any hard disk to restore!" if is_empty_hash_ref($root) || !$root->{device};
print "Please wait, disk reinstallation is in progress, this can take quite some time\n";
print "Formating $root->{device}\n";
system("mkfs.ext2 /dev/$root->{device} > /dev/null\n");
@@ -164,7 +164,7 @@ sub installPackages() {
*c::kernel_version = sub {
#my @l = glob_('/export/Mandrake/RPMS/kernel-enterprise-2.6*');
my @l = glob_('/export/Mandrake/RPMS/kernel-2.6*');
- @l >= 1 or die "TOTO\n$str\n"."can't find kernel";
+ @l >= 1 or die "can't find kernel";
@l <= 1 or die "too many kernels";
first(`rpm -qp --qf '%{name}' $l[0]` =~ /kernel-(.*)/);
};