From bb1ededd5e5baa58f73f24f57b0dbe2fa7dcf3ee Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 1 Jun 2019 20:40:34 -0700
Subject: [PATCH] remove debbuging Data::Printer code which snuck in

---
 Debbugs/Bug.pm                | 1 -
 Debbugs/Collection/Version.pm | 2 --
 t/fake_ftpdist                | 2 --
 3 files changed, 5 deletions(-)

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;
-- 
2.39.2