===================================================================
RCS file: /cvs/mp3/bin/createfulllist.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- mp3/bin/createfulllist.pl	2007/02/08 20:04:03	1.3
+++ mp3/bin/createfulllist.pl	2010/03/26 14:21:55	1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $RedRiver: createfulllist.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $
+# $RedRiver: createfulllist.pl,v 1.3 2007/02/08 20:04:03 andrew Exp $
 ########################################################################
 # showall.pl *** Displays all MP3's in all subdirs
 #
@@ -20,7 +20,8 @@
 # *** MAIN ***
 #######################################################################
 
-my ($prefix, $subdir) = split /\&/, $ENV{'QUERY_STRING'};
+my $query_string = $ENV{'QUERY_STRING'} || q{};
+my ($prefix, $subdir) = split /\&/, $query_string;
 if ($subdir) {
         $subdir =~ s/%(..)/pack("c",hex($1))/ge;
 } else {