From owner-freebsd-questions@FreeBSD.ORG  Sun Apr  8 15:37:38 2007
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
X-Original-To: freebsd-questions@freebsd.org
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52])
	by hub.freebsd.org (Postfix) with ESMTP id 7774B16A402
	for <freebsd-questions@freebsd.org>;
	Sun,  8 Apr 2007 15:37:38 +0000 (UTC)
	(envelope-from oregnier@steelbox.org)
Received: from 30.mail-out.ovh.net (30.mail-out.ovh.net [213.186.62.213])
	by mx1.freebsd.org (Postfix) with SMTP id D0BEF13C44B
	for <freebsd-questions@freebsd.org>;
	Sun,  8 Apr 2007 15:37:37 +0000 (UTC)
	(envelope-from oregnier@steelbox.org)
Received: (qmail 988 invoked by uid 503); 8 Apr 2007 15:37:53 -0000
Received: (QMFILT: 1.0); 08 Apr 2007 15:37:53 -0000
Received: from b7.ovh.net (HELO mail245.ha.ovh.net) (213.186.33.57)
	by 30.mail-out.ovh.net with SMTP; 8 Apr 2007 15:37:53 -0000
Received: from b0.ovh.net (HELO queue-out) (213.186.33.50)
	by b0.ovh.net with SMTP; 8 Apr 2007 15:37:35 -0000
Received: from mac76-2-82-241-6-173.fbx.proxad.net (HELO ?192.168.1.2?)
	(postmaster@steelbox.org@82.241.6.173)
	by ns0.ovh.net with SMTP; 8 Apr 2007 15:37:33 -0000
Message-ID: <46190C84.4080907@steelbox.org>
Date: Sun, 08 Apr 2007 17:38:44 +0200
From: Olivier Regnier <oregnier@steelbox.org>
User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)
MIME-Version: 1.0
To: freebsd-questions@freebsd.org
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Ovh-Remote: 82.241.6.173 (mac76-2-82-241-6-173.fbx.proxad.net)
X-Ovh-Local: 213.186.33.20 (ns0.ovh.net)
X-Spam-Check: DONE|H 0.5/N
Subject: perl/script and retval
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 08 Apr 2007 15:37:38 -0000

Hello,

I written a small script in sh :
# Downloading doc files
echo "===> Downloading doc files"
/usr/bin/csup $doc_supfile
RETVAL=$?
if [ $RETVAL != 0 ]; then
    echo "abort"
    exit 0
fi

I want to rewritte this code in perl script.

my $retval=0;
my $doc_supfile="/etc/doc-supfile";

# Downloading doc files
print "===> Downloading doc files\n";
system("/usr/bin/csup $doc_supfile
if (! $retval) {
print "abort";
exit;
}
I don't know what happened with retval but that doesn't work correctly.

Can you help me please ?

Thank you :)