summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-18 13:25:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-18 13:25:45 +0000
commit459eedd7dc7ef289f379d2fc1dc691a057d1e144 (patch)
treea042f6f973b37076d459c3ec80404f9e4ffaa202 /perl-install/install_any.pm
parentfb67876005b9f7002d56f96269da9e6fb5d03b0f (diff)
downloaddrakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar
drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.gz
drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.bz2
drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.xz
drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.zip
remove some unneeded ";", add some for normalization (as told by perl_checker)
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 99a64701b..fec69884c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -139,7 +139,7 @@ sub changeIso($) {
fs::mount($iso_images{loopdev}, $iso_images{mountpoint}, "iso9660", 'readonly');
log::l("using ISO image '$iso_label'");
1;
- }
+ };
}
sub errorOpeningFile($) {
@@ -213,7 +213,7 @@ sub getFile {
$o_altroot ||= '/tmp/image';
$f2 = "$o_altroot/$rel" if $rel !~ m,^/, && (!$postinstall_rpms || !-e $f2);
#- $f2 = "/$rel" if !$::o->{packages}{mediums}{$asked_medium}{rpmsdir} && !-e $f2; #- not a relative path, should not be necessary with new media layout
- my $F; open($F, $f2) ? $F : do { $f2 !~ /XXX/ and log::l("Can't open $f2: $!"); undef }
+ my $F; open($F, $f2) ? $F : do { $f2 !~ /XXX/ and log::l("Can't open $f2: $!"); undef };
}
} || errorOpeningFile($f);
}
@@ -276,7 +276,7 @@ sub clean_postinstall_rpms() {
#-######################################################################################
sub getNextStep {
my ($o) = @_;
- find { !$o->{steps}{$_}{done} && $o->{steps}{$_}{reachable} } @{$o->{orderedSteps}}
+ find { !$o->{steps}{$_}{done} && $o->{steps}{$_}{reachable} } @{$o->{orderedSteps}};
}
sub spawnShell() {
@@ -967,7 +967,7 @@ sub kdemove_desktop_file {
#- move appropriate file there after an upgrade.
foreach my $dir (grep { -d $_ } list_skels($prefix, 'Desktop')) {
renamef("$dir/$_", "$dir/Trash/$_")
- foreach grep { -e "$dir/$_" } @toMove, grep { /\.rpmorig$/ } all($dir)
+ foreach grep { -e "$dir/$_" } @toMove, grep { /\.rpmorig$/ } all($dir);
}
}
@@ -1089,7 +1089,7 @@ sub getAndSaveAutoInstallFloppies {
substInFile {
s/timeout.*/$replay ? 'timeout 1' : ''/e;
- s/^(\s*append)/$1 $param/
+ s/^(\s*append)/$1 $param/;
} "$mountdir/syslinux.cfg";
output "$mountdir/boot.msg", $replay ? '' : "\n0c" .
@@ -1312,7 +1312,7 @@ sub migrate_device_names {
} else {
#- hopefully this doesn't need anything special
}
- };
+ }
my @from_fstab_per_hds = values %h or return;