diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2016-06-10 02:13:02 +1200 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2016-06-10 02:13:02 +1200 |
commit | fceb0bb7445bcb86993354e6765ee7fa0943ca42 (patch) | |
tree | 58cf763e98922b93286139dac9e8559c79119f6d | |
parent | Strip trailing blank lines (diff) | |
download | irc-ebooks-fceb0bb7445bcb86993354e6765ee7fa0943ca42.tar.gz irc-ebooks-fceb0bb7445bcb86993354e6765ee7fa0943ca42.zip |
Fix a couple Perl::Critic whines
Still not completely clean yet
-rwxr-xr-x | bin/irc-ebooks-feed | 10 | ||||
-rwxr-xr-x | bin/irc-ebooks-test | 5 |
2 files changed, 8 insertions, 7 deletions
diff --git a/bin/irc-ebooks-feed b/bin/irc-ebooks-feed index 9b1011d..8cf9214 100755 --- a/bin/irc-ebooks-feed +++ b/bin/irc-ebooks-feed @@ -46,15 +46,15 @@ const my $LINE_FORMAT => qr{ # Skip text lines that match these patterns const my @SKIP_PATTERNS => ( - qr{ <[@%+ ]?\w+> }msx, # Looks like nick (probably a quote) - qr{ \d:\d }msx, # Looks like timestamp (probably a quote) - qr{ :// }msx, # Looks like URL + qr{ <[@%+ ]?\w+> }msx, # Looks like nick (probably a quote) + qr{ \d:\d }msx, # Looks like timestamp (probably a quote) + qr{ :// }msx, # Looks like URL ); # Delete these from text const my @DELETE_PATTERNS => ( - qr{ ^\w+:\s }msx, # Address in form of "nick: " - qr{ ["()\[\]] }msx, # Punctuations marks that may unbalance + qr{ ^\w+:\s }msx, # Address in form of "nick: " + qr{ ["()\[\]] }msx, # Punctuations marks that may unbalance ); # Import required modules diff --git a/bin/irc-ebooks-test b/bin/irc-ebooks-test index 46fb45c..d7e161e 100755 --- a/bin/irc-ebooks-test +++ b/bin/irc-ebooks-test @@ -57,7 +57,8 @@ my $irc_ebooks = IRC::Ebooks->new($config) or croak q{Failed to create IRC::Ebooks object}; # Have him respond to each line of standard input -while (<>) { +while (my $response = <>) { chomp; - say $irc_ebooks->reply($_); + say $irc_ebooks->reply($response) + or carp q{Failed to write to stdout}; } |