Author: bdonlan
Date: 2004-05-30 12:36:02 -0400 (Sun, 30 May 2004)
New Revision: 196
Modified:
trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm
Log:
Remove some debug prints
Modified: trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm 2004-05-30
16:19:28 UTC (rev 195)
+++ trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm 2004-05-30
16:36:02 UTC (rev 196)
@@ -294,10 +294,8 @@
sub _warn {
my ($self, $kernel, $args, $chan) = @_[OBJECT,KERNEL,ARG0,ARG1];
my ($err, $eshort, $elong, @earg) = @$args;
- print "_warn $err @earg\n";
my $warnpos = $warnpos{$err};
return unless defined $warnpos;
- print "warnpos $warnpos; $earg[$warnpos] v $self->{channel}\n";
#return unless ($chan eq $self->{channel}) && exists $warnings{$err};
return unless exists $warnpos{$err} && $earg[$warnpos{$err}] eq
$self->{channel};
if($warnings{$err}) {
