Some broken packages have no tarball in their .dsc file.

This caused transmonitor-check to abort, they are now skipped

CVS version numbers

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

1 files changed, 4 insertions, 0 deletions

diff --git a/Perl/Local/Inside/DebSrc.pm b/Perl/Local/Inside/DebSrc.pm
index 99b378082fb..4b4a116ad5d 100644
--- a/Perl/Local/Inside/DebSrc.pm
+++ b/Perl/Local/Inside/DebSrc.pm
@@ -102,6 +102,10 @@ sub new {
                 }
         }
         close(DSC);
+        if ($origtargz eq '') {
+                warn "No tarball\n";
+                return undef;
+        }
         my $self = $class->SUPER::new("$origtargz", @_);
         bless ($self, $class);