Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormoritz <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)
commit174fda083f33a90673a4141fd406ab6d6e04d694 (patch)
treeec0c53a4608adef8c1a9bccf2f14807a4ab8a258
parent7c5ddd96be81889334fb84c7e7c4de52f37f4831 (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.pm5
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;