diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-09 20:06:48 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-09 20:06:48 +0000 |
| commit | 18c8e097d83130ff6889078ac71d09305e525029 (patch) | |
| tree | c598edfb1a0fd403bd08d040caf77329ede3e465 /perl-install | |
| parent | e5b54b7ab34e58b34daaf89e8ee001f70ca9e6ee (diff) | |
| download | drakx-18c8e097d83130ff6889078ac71d09305e525029.tar drakx-18c8e097d83130ff6889078ac71d09305e525029.tar.gz drakx-18c8e097d83130ff6889078ac71d09305e525029.tar.bz2 drakx-18c8e097d83130ff6889078ac71d09305e525029.tar.xz drakx-18c8e097d83130ff6889078ac71d09305e525029.zip | |
thx perl checker
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 2d6a6f482..ea40a052c 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -222,7 +222,7 @@ 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: $!"); + exec { $_ } /busybox/ ? "/bin/sh" : $_, @args or log::l("exec of $_ failed: $!"); } die "cannot open shell"; } |