AoC::Task: restore $/ before prompting user

[aoc.git] / lib / Y / AoC / Task.pm

diff --git a/lib/Y/AoC/Task.pm b/lib/Y/AoC/Task.pm
index ec7c4a20e2d366817cedd7d56a0e74faeceb4382..cc1cdddd08a8346c21983d7ef79d268c6b55260b 100644 (file)
--- a/lib/Y/AoC/Task.pm
+++ b/lib/Y/AoC/Task.pm
@@ -58,6 +58,7 @@ sub try_submit($part, @msg) {
        print "\nSubmit $url\nlevel=", white($part), ' answer=',
                white($ans), ' ? [Enter]/[Ctrl-C]: ';
        
+       local $/ = "\n";
        scalar <STDIN>;
        eval '{
                local $SIG{__DIE__};