From 96a44ec69287273eaa346a8ebc3dafea651a4d1e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 24 Nov 1999 16:45:10 +0000
Subject: no_comment

---
 perl-install/run_program.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 593b270d8..40a853764 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -44,12 +44,12 @@ sub rooted {
 	if (ref $name) {
 	    unless (exec { $name->[0] } $name->[1], @args) {
 		log::l("exec of $name->[0] failed: $!");
-		exec('false') or exit(1);
+		c::_exit(1);
 	    }
 	} else {
 	    unless (exec $name, @args) {
 		log::l("exec of $name failed: $!");
-		exec('false') or exit(1);
+		c::_exit(1);
 	    }
 
 	}
-- 
cgit v1.2.1