summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig.pm9
-rw-r--r--perl-install/Xconfigurator.pm6
-rw-r--r--perl-install/partition_table.pm4
-rw-r--r--perl-install/pkgs.pm1
4 files changed, 11 insertions, 9 deletions
diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm
index fb1b03cc4..6bad6d93e 100644
--- a/perl-install/Xconfig.pm
+++ b/perl-install/Xconfig.pm
@@ -93,10 +93,11 @@ sub getinfoFromXF86Config {
}
}
#- get the default resolution according the the current file.
- my @depth = keys %{$o->{card}{depth}};
- $o->{resolution_wanted} ||=
- ($o->{card}{depth}{$o->{default_depth} || $depth[0]}[0][0]) . "x" .
- ($o->{card}{depth}{$o->{default_depth} || $depth[0]}[0][1]);
+ if (my @depth = keys %{$o->{card}{depth}}) {
+ $o->{resolution_wanted} ||=
+ ($o->{card}{depth}{$o->{default_depth} || $depth[0]}[0][0]) . "x" .
+ ($o->{card}{depth}{$o->{default_depth} || $depth[0]}[0][1]);
+ }
$o;
}
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index a64e924c5..ff9c39491 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -1126,7 +1126,7 @@ sub main {
if ($::isStandalone && $0 =~ /Xdrakres/) {
my $found;
foreach (@window_managers) {
- if (`pidof $_` > 0) {
+ if (`pidof "$_"` > 0) {
if ($in->ask_okcancel('', _("Please relog into %s to activate the changes", ucfirst $_), 1)) {
system("kwmcom logout") if /kwm/;
system("dcop kdesktop default logout") if /kwin/;
@@ -1138,8 +1138,8 @@ sub main {
c::setsid();
exec qw(perl -e), q{
my $wm = shift;
- for (my $nb = 30; $nb && `pidof $wm` > 0; $nb--) { sleep 1 }
- system("killall X") unless `pidof $wm` > 0;
+ for (my $nb = 30; $nb && `pidof "$wm"` > 0; $nb--) { sleep 1 }
+ system("killall X") unless `pidof "$wm"` > 0;
}, $_;
}
$found = 1; last;
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index aae124ba5..249416ba3 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -22,8 +22,8 @@ use partition_table_mac;
use log;
-@important_types = ('Linux native', 'Linux swap', 'Win98 FAT32');
-@important_types2 = (arch() =~ /i.86/ ? 'ReiserFS' : (), 'Linux RAID');
+@important_types = ('Linux native', arch() =~ /i.86/ ? 'ReiserFS' : (), 'Linux swap', 'Win98 FAT32');
+@important_types2 = ('Linux RAID');
@fields2save = qw(primary extended totalsectors isDirty needKernelReread);
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e03f25cce..90ea80424 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1022,6 +1022,7 @@ sub install($$$;$$) {
$total += packageSize($pkg);
}
+ log::l("pkgs::install $prefix");
eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo";
log::l("reading /usr/lib/rpm/rpmrc");