From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 18 Feb 2005 01:06:55 +0000 (+0000)
Subject: stray prints
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e507fbca30840ad7962dba78328ee4f6e32b739b;p=infobot.git

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 b608fb9..1d493f9 100644
--- 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 561e5b1..4ff90ee 100644
--- 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*(.*)/;