From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Mon, 2 Jan 2023 07:02:30 +0000 (+0100)
Subject: AoC::Task: restore $/ before prompting user
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=ec283da1f9eb5574ace9f827dc811be8a6c48e47;hp=c1d40dd98ed914f3a7c78bef6e52239d6fa95804;p=aoc.git

AoC::Task: restore $/ before prompting user
---

diff --git a/lib/Y/AoC/Task.pm b/lib/Y/AoC/Task.pm
index ec7c4a2..cc1cddd 100644
--- 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__};