remove debbuging Data::Printer code which snuck in

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 06c0ea1c725c15ebf13132dde582d4c1a43bde97..78bd5b73b62a6ea104b5eed8cc763af531487c32 100644 (file)
--- a/Debbugs/Bug.pm
+++ b/Debbugs/Bug.pm
@@ -182,7 +182,6 @@ for my $attr (qw(owner submitter done)) {
                      $attr.'_phrase' => 'phrase',
                     },
         );
-    use Data::Printer;
     $meta->add_method('has_'.$attr,
                      sub {my $self = shift;
                            my $m = $meta->find_method_by_name($attr);

diff --git a/Debbugs/Collection/Version.pm b/Debbugs/Collection/Version.pm
index b721cd915dd56951bee83d4b6a15a8df6d037d78..83338835f13e4aa33fc098cd7f01a333fd5f614f 100644 (file)
--- a/Debbugs/Collection/Version.pm
+++ b/Debbugs/Collection/Version.pm
@@ -47,8 +47,6 @@ sub _build_package_collection {
 }
 
 sub member_key {
-    use Data::Printer;
-    p @_;
     return $_[1]->package.'/'.$_[1]->version.'/'.$_[1]->arch;
 }
 

diff --git a/t/fake_ftpdist b/t/fake_ftpdist
index a388aadac65afa6745fd11029d90d4834340db5a..792041c9ec3005454be1989a2e6bec5c0e81444d 100755 (executable)
--- a/t/fake_ftpdist
+++ b/t/fake_ftpdist
@@ -112,8 +112,6 @@ for my $suite (keys %s_p) {
        }
 }
 $prog_bar->target($tot) if $prog_bar;
-use Data::Printer;
-p %s_di;
 my $i = 0;
 my $avg_pkgs = 0;
 my $tot_suites = scalar keys %s_p;