diff options
author | moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64> | 2009-07-27 11:14:47 (GMT) |
---|---|---|
committer | moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64> | 2009-07-27 11:14:47 (GMT) |
commit | 174fda083f33a90673a4141fd406ab6d6e04d694 (patch) | |
tree | ec0c53a4608adef8c1a9bccf2f14807a4ab8a258 | |
parent | 7c5ddd96be81889334fb84c7e7c4de52f37f4831 (diff) |
[irclog] gah, left in way too many debugging warn()s
git-svn-id: http://svn.pugscode.org/pugs/misc/irclog@27749 c213334d-75ef-0310-aa23-eaa082d1ae64
-rw-r--r-- | lib/IrcLog/WWW.pm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/lib/IrcLog/WWW.pm b/lib/IrcLog/WWW.pm index a281bcc..8a1a7d9 100644 --- a/lib/IrcLog/WWW.pm +++ b/lib/IrcLog/WWW.pm @@ -215,7 +215,6 @@ sub pdd_links { sub ansi_color_codes { my ($str, @args) = @_; my @chunks = split /($color_start|$color_reset)/, $str; - warn "In ansi_color_codes"; my $color; my $res = ''; for (@chunks) { @@ -223,14 +222,10 @@ sub ansi_color_codes { next if /$color_reset/; if (/$color_start/) { $color = $color_codes{$_}; - warn "setting color to $color\n"; - } else { $res .= qq{<span style="color: $color">} . encode_entities($_, ENTITIES) . qq{</span>}; - - warn "Adding <<$_>> with color $color\n"; } } return $res; |