bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2026-09-16 08:31:39 -04:00
Code Issues Projects Releases Wiki Activity

Dswim updates when no db exist or status or a combination thereof.

Browse Source
This commit is contained in:
freesource
2001-10-14 19:53:14 +00:00
parent 3762885480
commit f2c8510e31
2 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SWIM/DB.pm
+5 -2
View File
@@ -180,7 +180,7 @@ sub db {
}
}
else {
print "swim: missing important database\n"; exit;
print "swim: missing important database\n"; return "missing";
}
foreach (@GONE) {
@@ -199,10 +199,13 @@ sub db {
my $new=$#NEW + 1; my $cr=$#changed_packages + 1;
my $ch=($#CHANGED + 1) - $cr; my $gon= $#GONE + 1;
if ($commands->{"check"}) {
print "\n TOTAL\n -----\n";
print "NEW $new\n"; print "GONE $gon\n";
print "CHANGED $ch\n"; print "CHANGED STATUS $cr\n"; exit;
print "CHANGED $ch\n"; print "CHANGED STATUS $cr\n";
return 1;
}
print "\n TOTAL\n -----\n";
print "NEW $new\n"; print "GONE $gon\n";