Remove old debugging

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@77 088b83a4-0077-4247-935c-42ec02c2848b

diff --git a/irc.pl b/irc.pl
index 71b3a62..ac8d92e 100644 (file)
--- a/irc.pl
+++ b/irc.pl
@@ -223,10 +223,6 @@ sub send_public_to {
        use Data::Dumper;
        my $self = $heap->{ "self" };
        my $no_throttle = $target->{ "no_throttle" };
-       print(
-               "n_t: ".$no_throttle."\n".
-               "s-t: ".$self->{ "throttle" }."\n".
-               "len: ".length($msg)."\n" );
        if( $target->{ "dest" } =~ /^[#&][a-zA-Z0-9-_]+$/ ) {
                if( $no_throttle || !$self->{ "throttle" } || length $msg <= 354 ) {
                        print( "IRC : =>".$target->{ "dest" }.": $msg\n" );