summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-10-09 21:45:25 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-10-09 21:45:25 +0000
commitbcafc07d0f9251906312f6d5492d8308ddcec49c (patch)
tree000559532f3b3af90bddf3c24d7a1f2599731ffc /perl-install
parent18c8e097d83130ff6889078ac71d09305e525029 (diff)
downloaddrakx-bcafc07d0f9251906312f6d5492d8308ddcec49c.tar
drakx-bcafc07d0f9251906312f6d5492d8308ddcec49c.tar.gz
drakx-bcafc07d0f9251906312f6d5492d8308ddcec49c.tar.bz2
drakx-bcafc07d0f9251906312f6d5492d8308ddcec49c.tar.xz
drakx-bcafc07d0f9251906312f6d5492d8308ddcec49c.zip
help dumb perl_checker
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ea40a052c..75f2f58c5 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -222,7 +222,8 @@ sub spawnShell() {
my @args; -e '/etc/bashrc' and @args = qw(--rcfile /etc/bashrc);
foreach (qw(/bin/bash /usr/bin/busybox /bin/sh)) {
-x $_ or next;
- exec { $_ } /busybox/ ? "/bin/sh" : $_, @args or log::l("exec of $_ failed: $!");
+ my $program_name = /busybox/ ? "/bin/sh" : $_; #- since perl_checker is too dumb
+ exec { $_ } $program_name, @args or log::l("exec of $_ failed: $!");
}
die "cannot open shell";
}