Comment out all uses of Data::Printer (it's only debug code)

xtaran · Nov 13, 2019 · 77254a5 · 77254a5
1 parent ca78eb4
commit 77254a5
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 10 deletions.
diff --git a/bin/download-package-lists.pl b/bin/download-package-lists.pl
@@ -30,7 +30,7 @@
 use File::Touch;
 use Try::Tiny;
 
-use Data::Printer;
+#use Data::Printer;
 
 our $VERSION = '0.1';
 our $HOMEPAGE = 'https://github.com/xtaran/dist-detect';
@@ -171,7 +171,7 @@
             $distribution = ucfirst($base_url =~ s{^.*/([^/-]+)(-[^/]*)?/?$}{$1}r);
 
             my @debug = ( $base_url, $dist, $distribution, $version, $codename, $suite );
-            p @debug;
+            #p @debug;
         }
 
         my $main =

diff --git a/bin/find-openssh-versions-in-package-lists.pl b/bin/find-openssh-versions-in-package-lists.pl
@@ -33,7 +33,7 @@
 use App::DistDetect::SSH::Banner;
 
 # DEBUG HELPER
-use Data::Printer;
+#use Data::Printer;
 
 my $pkglistdir = path("$Bin/../package-lists")->make_path;
 my $schema_dir = path("$Bin/../sql")->make_path;
@@ -96,7 +96,7 @@
                $tags);
 
     my @banners = expected_banner_from_version($version, $os);
-    p @banners;
+    #p @banners;
     foreach my $banner (@banners) {
         $db->query('replace into banner2version(version,os,banner,source) '.
                    'values (?, ?, ?, ?)',
@@ -174,7 +174,7 @@
         # Also list the initial version for that release
         push(@upd_counter_values, $v_unchanged);
 
-        p @upd_counter_values;
+        #p @upd_counter_values;
 
         foreach my $no_sec_upd_version (@upd_counter_values) {
             say("$no_sec_upd_version | ".($local_tags?"[$local_tags] ":'').
@@ -186,7 +186,7 @@
                        path($pkglist)->stat->mtime, $local_tags);
 
             my @banners = expected_banner_from_version($no_sec_upd_version, $os);
-            p @banners;
+            #p @banners;
             foreach my $banner (@banners) {
                 $db->query('replace into banner2version(version,os,banner,source) '.
                            'values (?, ?, ?, ?)',

diff --git a/bin/scrap-wiki-ubuntu-releases.pl b/bin/scrap-wiki-ubuntu-releases.pl
@@ -25,7 +25,7 @@
 use Mojo::UserAgent;
 use Mojo::SQLite;
 
-use Data::Printer;
+#use Data::Printer;
 
 my $url = 'https://wiki.ubuntu.com/Releases';
 
@@ -52,7 +52,7 @@
                 $_->find('td')->each(
                     sub {
                         my $text = $_->all_text;
-                        p $text;
+                        #p $text;
                     });
             });
     });
diff --git a/lib/App/DistDetect/SSH/Banner.pm b/lib/App/DistDetect/SSH/Banner.pm
@@ -39,7 +39,7 @@ require Exporter;
 our @ISA = qw(Exporter);
 
 # DEBUG HELPER
-use Data::Printer;
+#use Data::Printer;
 
 =head1 FUNCTIONS
 

diff --git a/lib/DPKG/Parse/FromHandle.pm b/lib/DPKG/Parse/FromHandle.pm
@@ -9,7 +9,7 @@ use Class::C3;
 use base 'DPKG::Parse';
 
 # DEBUG HELPER
-use Data::Printer;
+#use Data::Printer;
 
 sub new {
     my $self = shift;