aboutsummaryrefslogtreecommitdiff
path: root/bin/irc-ebooks-test
diff options
context:
space:
mode:
Diffstat (limited to 'bin/irc-ebooks-test')
-rwxr-xr-xbin/irc-ebooks-test5
1 files changed, 3 insertions, 2 deletions
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};
}