aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/irc-ebooks-feed10
-rwxr-xr-xbin/irc-ebooks-test5
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};
}