mirror of
https://github.com/fspc/dswim.git
synced 2025-04-04 08:13:24 -04:00
Non-existent files where causing this to fail, and the db, there was
also a die, now there is a check to avoid this.
This commit is contained in:
parent
a16a8c79c5
commit
f8f6630c0f
12
bin/fastswim
12
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;
|
||||
|
Loading…
x
Reference in New Issue
Block a user