r66383 - in /trunk/dh-make-perl: debian/changelog lib/Debian/AptContents.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Dec 25 20:30:47 2010
New Revision: 66383

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66383
Log:
Skip non-existing APT source files. (Closes: #557961 for real)

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/Debian/AptContents.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=66383&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sat Dec 25 20:30:47 2010
@@ -20,6 +20,7 @@
 
   [ Damyan Ivanov ]
   * when looking for XS code, skip win32/ directories
+  * Skip non-existing APT source files. (Closes: #557961 for real)
 
  -- Peter Pentchev <roam at ringlet.net>  Sun, 19 Dec 2010 20:43:10 +0200
 

Modified: trunk/dh-make-perl/lib/Debian/AptContents.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/AptContents.pm?rev=66383&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/AptContents.pm (original)
+++ trunk/dh-make-perl/lib/Debian/AptContents.pm Sat Dec 25 20:30:47 2010
@@ -215,6 +215,10 @@
     my @res;
 
     for my $s ( @{ $self->sources } ) {
+        # by default ->sources contains a list of files that APT would look
+        # at. Some of them may not exist, so do not fail if this is the case
+        next unless -e $s;
+
         my $src = IO::File->new( $s, 'r' )
             or die "Unable to open '$s': $!\n";