* warn if the source and binary maintainer files are missing

[debbugs.git] / Debbugs / Common.pm

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 0917c6570b7860e0098a1309617c5dc3846788c9..e519c82e88a09a3e5c4815da3de5fa51ad254523 100644 (file)
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -328,6 +328,10 @@ sub package_maintainer {
                             'source_maintainer_file_override',
                             'pseduo_maint_file')}) {
            next unless defined $fn;
+           if (not -e $fn) {
+               warn "Missing source maintainer file '$fn'";
+               next;
+           }
            __add_to_hash($fn,$_source_maintainer,
                          $_source_maintainer_rev);
        }
@@ -340,6 +344,10 @@ sub package_maintainer {
                             'maintainer_file_override',
                             'pseduo_maint_file')}) {
            next unless defined $fn;
+           if (not -e $fn) {
+               warn "Missing maintainer file '$fn'";
+               next;
+           }
            __add_to_hash($fn,$_maintainer,
                              $_maintainer_rev);
        }
@@ -356,6 +364,7 @@ sub package_maintainer {
     }
     my $s = $param{reverse}?$_source_maintainer_rev:$_source_maintainer;
     for my $source (make_list($param{source},@extra_source)) {
+       $source =~ s/^src://;
        push @return,grep {defined $_} make_list($s->{$source});
     }
     return @return;