Constructor returns undef when source files are not found.

CVS version numbers

Perl/Local/Inside/DebSrc.pm: 1.1 -> 1.2

1 files changed, 11 insertions, 0 deletions

diff --git a/Perl/Local/Inside/DebSrc.pm b/Perl/Local/Inside/DebSrc.pm
index 4cda333ffb4..99b378082fb 100644
--- a/Perl/Local/Inside/DebSrc.pm
+++ b/Perl/Local/Inside/DebSrc.pm
@@ -65,6 +65,9 @@ is almost equivalent to
    $deb->bind_patch( parse_dft => -1 );
    $deb->parse();
 
+When tarball or patch file is required but does not exist, the C<new>
+method returns C<undef> after printing a warning.
+
 =cut
 
 sub new {
@@ -86,8 +89,16 @@ sub new {
                 last unless s/^ \S* \S* //;
                 if (m/\.tar\.gz$/) {
                         $origtargz = $dir . '/' . $_;
+                        unless (-f $origtargz) {
+                                warn "$origtargz: No such file\n";
+                                return undef;
+                        }
                 } elsif (m/\.diff\.gz$/) {
                         $diffgz = $dir . '/' . $_;
+                        unless (-f $diffgz) {
+                                warn "$diffgz No such file\n";
+                                return undef;
+                        }
                 }
         }
         close(DSC);