stray prints

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1135 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/Zippy.pl b/src/Modules/Zippy.pl
index b608fb9b53b7e397e5f4b7358b9f428fd0d07ff5..1d493f90f10f9d3384ee543707447223ea534f30 100644 (file)
--- a/src/Modules/Zippy.pl
+++ b/src/Modules/Zippy.pl
@@ -13,7 +13,7 @@ my $no_zippy; # Can't think of any situation in which this won't work..
 
 sub zippy::get {
     my @yows;
-    print "Reading...\n";
+    &::DEBUG("Reading zippy data");
     while (<DATA>) {
        chomp;
        push @yows, $_;

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index 561e5b1f076eee6762c0710b92a3217696fcb61a..4ff90eec971e82523df8e4e069bf9ce89f327ef0 100644 (file)
--- a/src/Modules/insult.pl
+++ b/src/Modules/insult.pl
@@ -14,7 +14,7 @@ sub Insult {
     my @adjs;
     my @amts;
     my @nouns;
-    print "Reading...\n";
+    &::DEBUG("Reading insult data");
     while (<DATA>) {
        chomp;
        push(@adjs, split(" ", $1)) if /^adj\s*(.*)/;