Non-existent files where causing this to fail, and the db, there was

also a die, now there is a check to avoid this.

bin/fastswim

@@ -52,6 +52,7 @@ my %version;
 #$#name = 2000;
 #$#ppackage = 2000;
 
+
 # This way has been de-pre-c-whatever-ated because it lacks version 
 # rememberance, and is just kept for testing purposes
 if ($#ARGV == -1) {
@@ -78,6 +79,7 @@ my %version;
     }
 
     
+
 # Make a nice md.  I decided on a Hash of Lists, giving all
 # files/dirs unique name, and then a list of packages which
 # correspond..because this should be faster than a Hash of Hash
@@ -93,12 +95,15 @@ my %version;
 print STDERR "  Making the massive hash\n";
 $| = 1; my $x = 1;
 foreach $thingy (sort @ppackage) {
-       open(LIST, "$ARGV[1]/$thingy") or die "Humm, strange";
+
+    if (-e "$ARGV[1]/$thingy") { 
+	open(LIST, "$ARGV[1]/$thingy");
         # Because of the version..there are sometimes dots
         $thingy =~ m,(.*)\.list,;
         my $count = 0;
         my @count = <LIST>;
         close(LIST);
+
 	foreach (@count) {         
 	    $x = 1 if $x == 6;
 	    print STDERR "|\r" if $x == 1 || $x == 4; print STDERR "/\r" if $x == 2;
@@ -142,6 +147,7 @@ my %version;
 	    }
         } 
     }
+}
 undef @ppackage;
     
 # We will create one file with the 1..and another with >1..
@@ -149,8 +155,8 @@ my %version;
 # things much faster.  Remember clean-up routines for kill.
 print STDERR "  Starting ... writing to $ARGV[2]!\n";
 # Create the database 
-      open(BIG, ">$ARGV[2]/big.debian") or die;
-      open(LONG, ">$ARGV[2]/long.debian") or die;
+open(BIG, ">$ARGV[2]/big.debian") or die "Couldn't find big.debian\n";
+open(LONG, ">$ARGV[2]/long.debian") or die "Couldn't find long.debian\n";
 foreach $thingy (sort keys %HL ) {
     $x = 1 if $x == 6;
     print STDERR "|\r" if $x == 1 || $x == 4; print STDERR "/\r" if $x == 2;