From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 2 Jun 2019 03:40:34 +0000 (-0700)
Subject: remove debbuging Data::Printer code which snuck in
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=bb1ededd5e5baa58f73f24f57b0dbe2fa7dcf3ee

remove debbuging Data::Printer code which snuck in
---

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 06c0ea1..78bd5b7 100644
--- 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 b721cd9..8333883 100644
--- 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 a388aad..792041c 100755
--- 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;