[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[SCM] Debian package checker branch, vendor-profile, updated. 2.5.1-34-g30085d6



The following commit has been merged in the vendor-profile branch:
commit c3d956c5a9a08282ae1fb8f9d9eab310f69af07a
Author: Niels Thykier <niels@thykier.net>
Date:   Thu Jun 23 15:48:31 2011 +0200

    Removed v_msg from FrontendUtil

diff --git a/lib/Lintian/Internal/FrontendUtil.pm b/lib/Lintian/Internal/FrontendUtil.pm
index a72b571..4e3a2b9 100644
--- a/lib/Lintian/Internal/FrontendUtil.pm
+++ b/lib/Lintian/Internal/FrontendUtil.pm
@@ -80,12 +80,10 @@ sub find_default_profile {
     my $qparent;
     # Use dpkg-vendor if present (unless we are testing our libdpkg-perl code)
     if(check_path('dpkg-vendor') && !check_test_feature('vendor-libdpkg-perl')){
-	v_msg('Using dpkg-vendor to determine the default profile.');
 	chomp($vendor = `dpkg-vendor --query Vendor`);
 	fail('dpkg-vendor failed (status: ' .  ($? >> 8). ").\n") if $?;
 	$qparent = \&_find_parent_vendor_dpkg_vendor;
     } else {
-	v_msg('Using Dpkg::Vendor to determine the default profile.');
 	require Dpkg::Vendor;
 	$vendor = Dpkg::Vendor::get_current_vendor();
 	fail("Could not determine the current vendor.\n") unless $vendor;
@@ -94,13 +92,11 @@ sub find_default_profile {
     $orig = $vendor;
     while ($vendor) {
 	my $p;
-	v_msg("Checking for default profile for $vendor.");
 	$p = Lintian::Profile->find_profile(lc($vendor), @prof_path);
 	last if $p;
 	$vendor = $qparent->($vendor);
     }
     fail("Could not find a profile for vendor $orig") unless $vendor;
-    v_msg("Found default profile for vendor $orig");
     return lc($vendor);
 }
 

-- 
Debian package checker


Reply to: