summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-09-14 15:12:14 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-09-14 15:12:14 +0000
commitb082edafe4d175867d280317ed3dbe6e28ccfefa (patch)
tree35f951e63ee73ddb57c309673c2bcd5058bfe5a2 /perl-install
parent7f2320264169bbbc425e99e14d9c9330a8cc4398 (diff)
downloaddrakx-backup-do-not-use-b082edafe4d175867d280317ed3dbe6e28ccfefa.tar
drakx-backup-do-not-use-b082edafe4d175867d280317ed3dbe6e28ccfefa.tar.gz
drakx-backup-do-not-use-b082edafe4d175867d280317ed3dbe6e28ccfefa.tar.bz2
drakx-backup-do-not-use-b082edafe4d175867d280317ed3dbe6e28ccfefa.tar.xz
drakx-backup-do-not-use-b082edafe4d175867d280317ed3dbe6e28ccfefa.zip
Made network checking working on non-english systems.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index aba21b392..6594641f7 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -145,7 +145,7 @@ sub service_starts_on_boot ($) {
my ($service) = @_;
local *F;
open F, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "/sbin/chkconfig --list $service 2>&1 |" ||
+ "/bin/sh -c \"export LC_ALL=C; /sbin/chkconfig --list $service 2>&1\" |" ||
die "Could not run chkconfig!";
while (<F>) {
chomp;
@@ -169,7 +169,7 @@ sub network_status {
# return 0, otherwise 1.
local *F;
open F, ($::testing ? "$prefix" : "chroot $prefix/ ") .
- "/etc/rc.d/init.d/network status |" ||
+ "/bin/sh -c \"export LC_ALL=C; /etc/rc.d/init.d/network status\" |" ||
die "Could not run \"/etc/rc.d/init.d/network status\"!";
while(<F>) {
if (($_ =~ /Devices.*down/) || # Are there configured devices which