From bcafc07d0f9251906312f6d5492d8308ddcec49c Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 9 Oct 2003 21:45:25 +0000
Subject: help dumb perl_checker

---
 perl-install/install_any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

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";
 }
-- 
cgit v1.2.1