[interchange-cvs] interchange - racke modified scripts/interchange.PL

[interchange-core@interchange.redhat.com]

User:      racke
Date:      2002-02-02 16:27:53 GMT
Modified:  scripts  Tag: STABLE_4_8-branch interchange.PL
Log:
use usage in a more sensible way (it has no explicit return value)

Revision  Changes    Path
No                   revision



No                   revision



2.7.2.8   +5 -4      interchange/scripts/interchange.PL


rev 2.7.2.8, prev_rev 2.7.2.7
Index: interchange.PL
===================================================================
RCS file: /anon_cvs/repository/interchange/scripts/interchange.PL,v
retrieving revision 2.7.2.7
retrieving revision 2.7.2.8
diff -u -r2.7.2.7 -r2.7.2.8
--- interchange.PL	24 Jan 2002 05:07:04 -0000	2.7.2.7
+++ interchange.PL	2 Feb 2002 16:27:53 -0000	2.7.2.8
@@ -50,7 +50,7 @@
 #
 # Interchange version 4.8.4
 #
-# $Id: interchange.PL,v 2.7.2.7 2002/01/24 05:07:04 jon Exp $
+# $Id: interchange.PL,v 2.7.2.8 2002/02/02 16:27:53 racke Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -2758,9 +2758,10 @@
 
 	# Parse command line options, getting mode if not -serve
 	# May actually exit in some situations
-	parse_options()
-		or die usage() . "\n";
-
+	unless (parse_options()) {
+		usage ();
+		exit 1;
+	}
 	# Cannot run as root unless in 'make test'
 	if($> == 0 and ! $Global::Windows) {
 		die errmsg("The Interchange server must not be run as root.\n")