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
_______________________________________________
Collab-qa-commits mailing list
[email protected]
http://lists.alioth.debian.org/mailman/listinfo/collab-qa-commits
