From 95f6b83f9fe0e7dfd32b7bbeed65532f1cfa42ff Mon Sep 17 00:00:00 2001
From: Marcin Owsiany <porridge>
Date: Wed, 3 Nov 2010 18:26:41 +0000
Subject: Declare options before using them. Give the usage message a chance to
 display.

CVS version numbers

copypage.pl: 1.38 -> 1.39
---
 copypage.pl | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'copypage.pl')

diff --git a/copypage.pl b/copypage.pl
index 05e9dc4491d..1c28e7f8400 100755
--- a/copypage.pl
+++ b/copypage.pl
@@ -61,6 +61,10 @@ if (exists $ENV{DWWW_MAINT})
 	$maintainer = $ENV{DWWW_MAINT};
 }
 
+# Options
+our ($opt_n, $opt_t, $opt_l);
+getopts('nm:l:'); 
+
 # Values overwritten by commandline
 if (defined $opt_m)
 {
@@ -71,13 +75,6 @@ if (defined $opt_l)
         $language = $opt_l;
 }
 
-die "Language not defined in DWWW_LANG or language.conf\n"
-	if not defined $language;
-
-#warn "Maintainer name not defined in DWWW_MAINT or language.conf\n"
-#	if not defined $maintainer;
-
-
 # Check usage.
 if ($#ARGV == -1)
 {
@@ -103,9 +100,12 @@ if ($#ARGV == -1)
 
 }
 
-# Options
-our ($opt_n, $opt_t, $opt_l);
-getopts('nm:l:'); 
+die "Language not defined in DWWW_LANG or language.conf\n"
+	if not defined $language;
+
+#warn "Maintainer name not defined in DWWW_MAINT or language.conf\n"
+#	if not defined $maintainer;
+
 
 # Table of entities used when copying to non-latin1 encodings
 @entities = (
-- 
cgit v1.2.3