diff options
Diffstat (limited to 'bin/irc-ebooks-test')
-rwxr-xr-x | bin/irc-ebooks-test | 5 |
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}; } |