X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=inline;f=lib%2Fperl%2FConfigure.pm;h=56a85e2fc7fd7c20fd91f461f51a2f7d313c0ce5;hb=b6013d244489aca80a904755ec2531874361185c;hp=bd1a7cc53f94ad5297beb1b9cd39c07441866d29;hpb=54d6995ab44a7122c74c195bd3fedf11c2d223da;p=moe.git

diff --git a/lib/perl/Configure.pm b/lib/perl/Configure.pm
index bd1a7cc..56a85e2 100644
--- a/lib/perl/Configure.pm
+++ b/lib/perl/Configure.pm
@@ -103,15 +103,19 @@ sub FindFile($) {
 
 sub Init($$) {
 	my ($srcdir,$defconfig) = @_;
-	if ((!defined $defconfig && !@ARGV) || @ARGV && $ARGV[0] eq "--help") {
-		print STDERR "Usage: [<srcdir>/]configure " . (defined $defconfig ? "[" : "") . "<config-name>" . (defined $defconfig ? "]" : "") .
+	sub usage($) {
+		my ($dc) = @_;
+		print STDERR "Usage: [<srcdir>/]configure " . (defined $dc ? "[" : "") . "<config-name>" . (defined $dc ? "]" : "") .
 			" [<option>[=<value>] | -<option>] ...\n";
 		exit 1;
 	}
-	if (@ARGV && $ARGV[0] !~ /=/) {
-		Set('CONFIG' => shift @ARGV);
-	} else {
-		Set('CONFIG' => $defconfig);
+	Set('CONFIG' => $defconfig) if defined $defconfig;
+	if (@ARGV) {
+		usage($defconfig) if $ARGV[0] eq "--help";
+		if (!defined($defconfig) || $ARGV[0] !~ /^-?[A-Z][A-Z0-9_]*(=|$)/) {
+			# This does not look like an option, so read it as a file name
+			Set('CONFIG' => shift @ARGV);
+		}
 	}
 	Set("SRCDIR", $srcdir);
 
@@ -129,6 +133,7 @@ sub Init($$) {
 		}
 	}
 
+	defined Get("CONFIG") or usage($defconfig);
 	if (!TryFindFile(Get("CONFIG"))) {
 		TryFindFile(Get("CONFIG")."/config") or Fail "Cannot find configuration " . Get("CONFIG");
 		Override("CONFIG" => Get("CONFIG")."/config");