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

[SCM] Debian package checker branch, master, updated. 2.5.10-41-gab56207



The following commit has been merged in the master branch:
commit ab56207e809524df08dc60c13b1ea8836c538c5d
Author: Niels Thykier <niels@thykier.net>
Date:   Sat Jul 14 12:45:27 2012 +0200

    L::C::Package: Strip leading slash from filenames in indices
    
    Signed-off-by: Niels Thykier <niels@thykier.net>

diff --git a/debian/changelog b/debian/changelog
index 8b8afe0..0e72ae8 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -64,6 +64,8 @@ lintian (2.5.11) UNRELEASED; urgency=low
       of the methods.
   * lib/Lintian/Collect/Binary.pm:
     + [NT] Bump API for objdump method.
+  * lib/Lintian/Collect/Package.pm:
+    + [NT] Strip leading slash off files extracted from tar.
 
  -- Niels Thykier <niels@thykier.net>  Tue, 10 Jul 2012 13:21:56 +0200
 
diff --git a/lib/Lintian/Collect/Package.pm b/lib/Lintian/Collect/Package.pm
index febd977..2810f82 100644
--- a/lib/Lintian/Collect/Package.pm
+++ b/lib/Lintian/Collect/Package.pm
@@ -106,7 +106,7 @@ sub _fetch_extracted_dir {
 sub _dequote_name {
     my ($name, $slsd) = @_;
     $slsd = 1 unless defined $slsd; # Remove initial ./ by default
-    $name =~ s,^\./,, if $slsd;
+    $name =~ s,^\.?/,, if $slsd;
     $name =~ s/(\G|[^\\](?:\\\\)*)\\(\d{3})/"$1" . chr(oct $2)/ge;
     $name =~ s/\\\\/\\/;
     return $name;

-- 
Debian package checker


Reply to: