[Dehs-devel] SVN devscripts commit: r227 - trunk

[Julian Gilbey]

Author: jdg
Date: 2005-08-15 23:55:45 +0000 (Mon, 15 Aug 2005)
New Revision: 227

Modified:
   trunk/uscan.pl
Log:
uscan: only give report messages if not using dehs

Modified: trunk/uscan.pl
===================================================================
--- trunk/uscan.pl	2005-08-15 00:09:36 UTC (rev 226)
+++ trunk/uscan.pl	2005-08-15 23:55:45 UTC (rev 227)
@@ -850,12 +850,13 @@
 
     print "Newest version on remote site is $newversion, local version is $lastversion\n" .
 	($mangled_lastversion eq $lastversion ? "" : " (mangled local version number $mangled_lastversion)\n")
-	if $verbose or $download == 0;
+	if $verbose or ($download == 0 and ! $dehs);
 
     # Can't just use $lastversion eq $newversion, as then 0.01 and 0.1
     # compare different, whereas they are treated as equal by dpkg
     if (system("dpkg --compare-versions '$mangled_lastversion' eq '$newversion'") == 0) {
-	print " => Package is up to date\n" if $verbose or $download == 0;
+	print " => Package is up to date\n"
+	    if $verbose or ($download == 0 and ! $dehs);
 	$dehs_tags{'status'} = "up to date";
 	return 0;
     }
@@ -880,17 +881,17 @@
     if (defined $pkg_dir) {
 	if (-f "../$newfile_base") {
 	    print " => $newfile_base already in package directory\n"
-		if $verbose or $download == 0;
+		if $verbose or ($download == 0 and ! $dehs);
 	    return 0;
 	}
 	if (-f "../${pkg}_${newversion}.orig.tar.gz") {
 	    print " => ${pkg}_${newversion}.orig.tar.gz already in package directory\n"
-		if $verbose or $download == 0;
+		if $verbose or ($download == 0 and ! $dehs);
 	    return 0;
 	}
 	elsif (-f "../${pkg}_${newversion}.orig.tar.bz2") {
 	    print " => ${pkg}_${newversion}.orig.tar.bz2 already in package directory\n"
-		if $verbose or $download == 0;
+		if $verbose or ($download == 0 and ! $dehs);
 	    return 0;
 	}
     }