From 5aed127ccbcd2f97c40b8bf088738886e99b13b9 Mon Sep 17 00:00:00 2001
From: sb476 <devnull@localhost>
Date: Tue, 20 Apr 2004 02:11:21 +0200
Subject: [PATCH] [svn r5754] Remove extra debug

---
 noinfo/make-indxal4.pl | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/noinfo/make-indxal4.pl b/noinfo/make-indxal4.pl
index dd7906555..d49099e71 100755
--- a/noinfo/make-indxal4.pl
+++ b/noinfo/make-indxal4.pl
@@ -12,22 +12,17 @@ use Getopt::Long;
 my $no_verbose_progress = 0;
 my $usage = 0;
 GetOptions('quiet' => \$no_verbose_progress, # be quiet
-           'help|?' => \$usage # help!
+           'help' => \$usage # help!
           );
 
 # Print usage
 if ($usage) {
-		print << "EOF";
-USAGE: $progname [-options] <CSV file>
-	-q, --quiet			Be quiet about progress
-	-h, --help			Show this message
-EOF
-		exit(0);
+	usage();
 }
 
 unless ($ARGV[0]) {
-	print "Specify a CSV file name (e.g. CAVETAB2.CSV)\n";
-	die $!;
+	print "Specify a CSV file name as the program's argument(e.g. CAVETAB2.CSV)\n";
+	usage();
 }
 
 open (CSV, "< $ARGV[0]");
@@ -184,7 +179,6 @@ sub do_this_line {
 	# If the cave does not have a filename allocated, but does have multiple entrances, keep going through the CSV file until we are at the last entrance, before we return
 	unless ($file) { # this IS necessary
 		if ($mult_ents eq "yes") {
-				print "hello $kat_num $other_number\n";
 			my $e_mult_ents;
 			do {
 				my $e = <CSV>;
@@ -590,3 +584,13 @@ sub multi_ents {
 
 	print FILE "\n\n</menu>";
 }
+
+# Usage
+sub usage {
+	print << "EOF";
+USAGE: $progname [-options] <CSV file>
+    -q, --quiet         Be quiet about progress
+    -h, --help          Show this message
+EOF
+    exit(0);
+}