The following commit has been merged in the master branch:
commit 7ab893fab2868aaf0f3a91ac690b6a221d6013f2
Author: Niels Thykier <[email protected]>
Date:   Fri Sep 9 19:11:33 2011 +0200

    Fixed the indentation of L::I::FrontendUtil

diff --git a/lib/Lintian/Internal/FrontendUtil.pm 
b/lib/Lintian/Internal/FrontendUtil.pm
index 9f45440..aaf3612 100644
--- a/lib/Lintian/Internal/FrontendUtil.pm
+++ b/lib/Lintian/Internal/FrontendUtil.pm
@@ -31,7 +31,7 @@ sub check_test_feature{
     my $env = $ENV{LINTIAN_TEST_FEATURE};
     return 0 unless $env;
     foreach my $feat (@_){
-       return 1 if($env =~ m/$feat/);
+        return 1 if($env =~ m/$feat/);
     }
     return 0;
 }
@@ -80,21 +80,21 @@ 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')){
-       chomp($vendor = `dpkg-vendor --query Vendor`);
-       fail('dpkg-vendor failed (status: ' .  ($? >> 8). ").\n") if $?;
-       $qparent = \&_find_parent_vendor_dpkg_vendor;
+        chomp($vendor = `dpkg-vendor --query Vendor`);
+        fail('dpkg-vendor failed (status: ' .  ($? >> 8). ").\n") if $?;
+        $qparent = \&_find_parent_vendor_dpkg_vendor;
     } else {
-       require Dpkg::Vendor;
-       $vendor = Dpkg::Vendor::get_current_vendor();
-       fail("Could not determine the current vendor.\n") unless $vendor;
-       $qparent = \&_find_parent_vendor_libdpkg_perl;
+        require Dpkg::Vendor;
+        $vendor = Dpkg::Vendor::get_current_vendor();
+        fail("Could not determine the current vendor.\n") unless $vendor;
+        $qparent = \&_find_parent_vendor_libdpkg_perl;
     }
     $orig = $vendor;
     while ($vendor) {
-       my $p;
-       $p = Lintian::Profile->find_profile(lc($vendor), @prof_path);
-       last if $p;
-       $vendor = $qparent->($vendor);
+        my $p;
+        $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;
     return lc($vendor);

-- 
Debian package checker


-- 
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
Archive: http://lists.debian.org/[email protected]

Reply via email to