From f0d7170ba4a18afd58c52da59514bd641949e97c Mon Sep 17 00:00:00 2001 From: mjg54 Date: Fri, 16 Jan 2004 12:50:15 +0100 Subject: [PATCH] [svn r5488] *** empty log message *** --- noinfo/make-indxal2.pl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/noinfo/make-indxal2.pl b/noinfo/make-indxal2.pl index ab6c47653..286ee393f 100755 --- a/noinfo/make-indxal2.pl +++ b/noinfo/make-indxal2.pl @@ -108,8 +108,7 @@ while (<>) { if ($file ne "") { $number =~ s/\//-/g; $number =~ s/\?/q/; - - #print "$file\n"; + print "$file\n"; open FILE, ">..\/$file" or die $!; print FILE < @@ -465,7 +464,6 @@ END } my $toroot; $toroot = ""; - #print "\n$file"; #determine the number of directorys deep the caves main page is at in order to link to area descriptions and indxal if ($file =~ /.*\/.*/) { $toroot = "../";