merge changes from dla source tree

diff --git a/examples/debian/postpa/20impbugs b/examples/debian/postpa/20impbugs
index 40f21c6ccbd0e1a955cf113b5161aa6f05f1c887..5f6f1a915bb00684af03a368abab31ebd2198d0f 100755 (executable)
--- a/examples/debian/postpa/20impbugs
+++ b/examples/debian/postpa/20impbugs
@@ -4,8 +4,7 @@ use warnings;
 use strict;
 
 use Debbugs::Config qw(:globals);
-use Debbugs::Common qw(splitpackages);
-use Debbugs::Status qw(get_bug_status);
+use Debbugs::Status qw(get_bug_status splitpackages);
 use Debbugs::Bugs qw(count_bugs);
 
 my %strong = map { $_ => 1 } @gStrongSeverities;

diff --git a/examples/debian/postpa/20impbugs-versioned b/examples/debian/postpa/20impbugs-versioned
index 65a2b6a20a1af8d5f1af3db033696ad73e032769..5bbf36689f80563ff675d7832dfd888f651027e9 100755 (executable)
--- a/examples/debian/postpa/20impbugs-versioned
+++ b/examples/debian/postpa/20impbugs-versioned
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 use Debbugs::Config qw(:globals);
-use Debbugs::Status qw(splitpackages buggy);
+use Debbugs::Status qw(splitpackages buggy get_bug_status);
 use Debbugs::Packages qw(getversions makesourceversions);
 use Debbugs::Bugs qw(count_bugs);
 
@@ -28,7 +28,7 @@ for my $dist ('testing', 'unstable') {
     return () if (grep /^$d{bug}$/, @merged);
 
     # Unfortunately mergedwith isn't indexed.
-    my $status = getbugstatus($d{bug});
+    my $status = get_bug_status(bug => $d{bug});
     push(@merged, split(' ', $status->{'mergedwith'}));
 
     #set_option('dist', $dist);