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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-15 00:20:11 +0000 (Sat, 15 Dec 2007)
New Revision: 591

Modified:
   svnbuildstat/trunk/script/svnbuildstat_watchfile.pl
Log:
exit 1 if uscan is missing


Modified: svnbuildstat/trunk/script/svnbuildstat_watchfile.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_watchfile.pl	2007-12-14 19:22:49 UTC (rev 590)
+++ svnbuildstat/trunk/script/svnbuildstat_watchfile.pl	2007-12-15 00:20:11 UTC (rev 591)
@@ -2,13 +2,18 @@
 
 use strict;
 
-use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
+use lib '../lib';
 
 use Config::IniFiles;
 use SvnBuildStat::Schema;
 use SvnBuildStat::Common;
 use Logger::Syslog;
 
+if (-x "/usr/bin/uscan") {
+    print "Can't find uscan";
+    exit 1;
+}
+
 my $cfg = Config::IniFiles->new( -file => "../svnbuildstat.ini" ) or die "Can't load config file";
 my $schema = SvnBuildStat::Schema->connect(
   $cfg->val('db', 'dsn'),