[Collab-qa-commits] r800 - svnbuildstat/trunk/script

[goneri at alioth.debian.org]

Author: goneri
Date: 2008-04-18 23:36:10 +0000 (Fri, 18 Apr 2008)
New Revision: 800

Modified:
   svnbuildstat/trunk/script/svnbuildstat_tarball.pl
Log:
Upse, maybe I need to save the changes :)

Modified: svnbuildstat/trunk/script/svnbuildstat_tarball.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_tarball.pl	2008-04-18 23:17:00 UTC (rev 799)
+++ svnbuildstat/trunk/script/svnbuildstat_tarball.pl	2008-04-18 23:36:10 UTC (rev 800)
@@ -22,7 +22,8 @@
 my $tarballdir = $cfg->val('path', 'tarballdir');
 
 if (! -d $tarballdir) {
-    print "the tarball directory (`$tarballdir') doesn't exit";
+    print "the tarball directory (`$tarballdir') doesn't exit\n";
+    error ("the tarball directory (`$tarballdir') doesn't exit");
     exit 1;
 }
 
@@ -31,7 +32,6 @@
 
 my $changelogentry_rs = $schema->resultset('Changelogentry')->search({ tarball_id => undef , version => { '!=', undef}, isnative => 'false' });
 while (my $changelogentry = $changelogentry_rs->next) {
-
     my $tarball;
     my $filename = mkTarballFromChangelogentry(\$changelogentry);
 #    if (-f $tarballdir.'/'.$filename) {
@@ -72,6 +72,7 @@
     } else {
         unlink $tarballdir.'/'.$filename.'.part';
     }
+    $changelogentry->update;
 
 # TODO, check for svnbuildpackage OrigUrl here
 # TODO deal with tarballs that are one the repository