diff options
| author | Tom Feist <shabble@metavore.org> | 2011-04-21 22:41:57 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2011-04-21 22:41:57 +0000 |
| commit | 288758fd2ae991b6269500030af9ed522d66084e (patch) | |
| tree | 49bf546102785948342cf4c5d65872b679f960d8 /quit-notify/notifyquit.pl | |
| parent | * quit-notify/README.pod: added documentation for notifyquit, and generated (diff) | |
| download | irssi-scripts-288758fd2ae991b6269500030af9ed522d66084e.tar.gz irssi-scripts-288758fd2ae991b6269500030af9ed522d66084e.zip | |
notifyquit: removed debug prints.
Diffstat (limited to 'quit-notify/notifyquit.pl')
| -rw-r--r-- | quit-notify/notifyquit.pl | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/quit-notify/notifyquit.pl b/quit-notify/notifyquit.pl index a8d7f3f..a37e258 100644 --- a/quit-notify/notifyquit.pl +++ b/quit-notify/notifyquit.pl @@ -171,13 +171,10 @@ sub extract_nick { sub check_nick_exemptions { my ($nick) = @_; foreach my $except (@match_exceptions) { - print "Testing nick $nick against $except"; if ($nick =~ $except) { - print "FAiled match $except"; return 0; # fail } } - print "match ok"; return 1; } @@ -285,7 +282,6 @@ sub sig_setup_changed { foreach my $except (@except_list) { - print "Exception regex str: $except"; $except =~ s|^/||; $except =~ s|/$||; @@ -300,7 +296,6 @@ sub sig_setup_changed { if ($@ or not defined $regex) { print "Regex failed to parse: \"$except\": $@"; } else { - print "Adding match exception: $regex"; push @match_exceptions, $regex; } } |