From 8cb6a5cccbf6b2c71c0aec28672b29794faa6df7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 10 Mar 2005 10:38:50 +0000
Subject: help perl

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

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 97f4e0fe1..03babd9b2 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -146,10 +146,10 @@ foreach (@ARGV) {
 	print N("\nUsage: %s  [--auto] [--beginner] [--expert] [-h|--help] [--noauto] [--testing] [-v|--version] ", $progname),
        if_($usages{$progname}, common::translate($usages{$progname})), "\n";
 #    print N("\nUsage: "), $::usage, "\n" if $::usage;
-	exit(0);
+	CORE::exit(0);
     } elsif (/^-(-version|v)$/) {
 	version();
-	exit(0);
+	CORE::exit(0);
     } elsif (/^--embedded$/) {
 	$::XID = splice @ARGV, $i, 1;
 	$::isEmbedded = 1;
-- 
cgit v1.2.1