[SCM] Debian package checker branch, master, updated. 2.0.0-13-g0094324

["Frank Lichtenheld" <djpig@debian.org>]

The following commit has been merged in the master branch:
commit 9238cdbb534fc0110753bf911272f6bd242e3797
Author: Frank Lichtenheld <djpig@debian.org>
Date:   Fri Sep 19 18:01:04 2008 +0200

    Do not use STDERR for debug output
    
    I don't think this is something worth supporting in Lintian::Output.

diff --git a/frontend/lintian b/frontend/lintian
index a3dd59a..80bff27 100755
--- a/frontend/lintian
+++ b/frontend/lintian
@@ -1273,30 +1273,28 @@ if ($check_everything) {
     read_bin_list("$LINTIAN_LAB/info/binary-packages", 0);
     read_udeb_list("$LINTIAN_LAB/info/udeb-packages", 0);
 
-    if ($debug >= 2) {
-      print STDERR "pkg_mode = $pkg_mode\n";
-      for my $arg (keys %source_info) {
-        print STDERR $arg."\n";
-      }
+    debug_msg(2, "pkg_mode = $pkg_mode");
+    for my $arg (keys %source_info) {
+	debug_msg(2, keys %source_info);
     }
 
     if (($pkg_mode eq 'a') or ($pkg_mode eq 's')) {
 	for my $arg (keys %source_info) {
-	    print STDERR "doing stuff with $LINTIAN_ARCHIVEDIR/$source_info{$arg}->{'file'}\n" if $debug;
+	    debug_msg(1, "doing stuff with $LINTIAN_ARCHIVEDIR/$source_info{$arg}->{'file'}");
 	    $schedule->add_file('s', "$LINTIAN_ARCHIVEDIR/$source_info{$arg}->{'file'}",
 				%{$source_info{$arg}});
 	}
     }
     if (($pkg_mode eq 'a') or ($pkg_mode eq 'b')) {
 	for my $arg (keys %binary_info) {
-	    print STDERR "doing stuff with $LINTIAN_ARCHIVEDIR/$binary_info{$arg}->{'file'}\n" if $debug;
+	    debug_msg(1, "doing stuff with $LINTIAN_ARCHIVEDIR/$binary_info{$arg}->{'file'}");
 	    $schedule->add_file('b', "$LINTIAN_ARCHIVEDIR/$binary_info{$arg}->{'file'}",
 				%{$binary_info{$arg}});
 	}
     }
     if (($pkg_mode eq 'a') or ($pkg_mode eq 'u')) {
 	for my $arg (keys %udeb_info) {
-	    print STDERR "doing stuff with $LINTIAN_ARCHIVEDIR/$udeb_info{$arg}->{'file'}\n" if $debug;
+	    debug_msg(1, "doing stuff with $LINTIAN_ARCHIVEDIR/$udeb_info{$arg}->{'file'}");
 	    $schedule->add_file('u', "$LINTIAN_ARCHIVEDIR/$udeb_info{$arg}->{'file'}",
 				%{$udeb_info{$arg}});
 	}
diff --git a/lib/Lab.pm b/lib/Lab.pm
index a111baf..c854885 100644
--- a/lib/Lab.pm
+++ b/lib/Lab.pm
@@ -138,7 +138,7 @@ sub populate_with_dist {
     return 0 unless $dist;
     return 0 unless $self->{dir};
 
-    print STDERR "spawning list-binpkg, list-udebpkg and list-srcpkg since LINTIAN_DIST=$dist\n" if ($debug >= 2);
+    debug(2, "spawning list-binpkg, list-udebpkg and list-srcpkg since LINTIAN_DIST=$dist");
 
     my $v = $Lintian::Output::GLOBAL->verbose ? '-v' : '';
 

-- 
Debian package checker