From 18c8e097d83130ff6889078ac71d09305e525029 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 9 Oct 2003 20:06:48 +0000 Subject: thx perl checker --- perl-install/install_any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"; } -- cgit v1.2.1