X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=lib%2FY%2FAoC%2FTask.pm;h=cc1cdddd08a8346c21983d7ef79d268c6b55260b;hb=HEAD;hp=bab6d938f36fa8413b9db1e4727d126d19a02060;hpb=78136e93bf5e13aabceb8834ab3748187ee74eee;p=aoc.git

diff --git a/lib/Y/AoC/Task.pm b/lib/Y/AoC/Task.pm
index bab6d93..cc1cddd 100644
--- a/lib/Y/AoC/Task.pm
+++ b/lib/Y/AoC/Task.pm
@@ -3,6 +3,8 @@ package Y::AoC::Task;
 use v5.36;
 
 use Exporter ('import');
+use IO::Handle;
+
 our @EXPORT = qw(t asay bsay);
 use Y::AoC qw(red white grey yellow day year);
 
@@ -20,10 +22,13 @@ $SIG{__WARN__} = sub($msg) {
 	say STDERR $msg;
 };
 
+STDOUT->autoflush(1);
+STDERR->autoflush(1);
+
 our $in_test;
 sub t($subtest = ()) {
 	$subtest //= '';
-	$ARGV[0] =~ s/in\.txt/test$subtest.txt/;
+	$ARGV[0] =~ s/in\.txt/test$subtest.txt/ if defined $ARGV[0];
 	$in_test = 1;
 }
 
@@ -53,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__};
@@ -91,12 +97,3 @@ sub try_submit($part, @msg) {
 }
 
 1;
-__END__
-package Y::AoC::UA;
-
-sub new($class, $year, $day) {
-	eval 'require
-}
-
-sub get($ua) {
-1;