Fixed errors that occurred when a non-existent file would trip up the

stricter requirements for the newer perl 5.8.

bin/imswim

@@ -52,7 +52,7 @@ line.
 	print STDERR "swim: imswim requires arguments, see program for instructions\n";                                                                      
 	exit;                                                                  
    }                                                                           
-   else {
+else {
     $| = 1; my $x = 1;
     open(FILEDIR, ">$ARGV[1]/filedir.deb") 
 	or warn "could not create filedir.deb\n";
@@ -60,6 +60,7 @@ line.
     while (<TRANSFER>) {
 	chomp;
 	my @the = split(/_/, $_);
+	if (-e "$ARGV[0]/$the[0].list") { 
 	open (LIST, "$ARGV[0]/$the[0].list") 
 	    or warn "could not file *list";
         chomp;
@@ -98,8 +99,9 @@ line.
 	    }                                                                     
 	    $count = 1;      
 	    print FILEDIR "$_ -> $the[0]_$the[1]\n";
+	} # if *list exists
     } # foreach @count
     } # while TRANSFER
     close(TRANSFER);
     close(FILEDIR); 
-  } # else
+} # else