X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=lib%2FY%2FAoC.pm;h=31b4532694b97a840f63e4fe9ce9a07e1847d8e2;hb=3487c6f92ac31ca9ce13ceba78ad63454edd7636;hp=8fbb606a6486cba86f744dd9af0332441b61e6de;hpb=f837717da7e44eb2de14c3ceeac504cf4d051a73;p=aoc.git

diff --git a/lib/Y/AoC.pm b/lib/Y/AoC.pm
index 8fbb606..31b4532 100644
--- a/lib/Y/AoC.pm
+++ b/lib/Y/AoC.pm
@@ -7,6 +7,7 @@ our @EXPORT_OK = qw(red grey white yellow day year);
 
 use FindBin qw($Bin);
 use Term::ANSIColor;
+use Cwd;
 
 sub red    { colored(['bright_red    on_black'], @_); }
 sub white  { colored(['bright_white  on_black'], @_); }
@@ -20,6 +21,9 @@ sub day {
 
 sub year {
 	my ($num) = $Bin =~ /.*(\d{4})/;
+	if (!defined $num) {
+		($num) = getcwd =~ /.*(\d{4})/;
+	}
 	$num;
 }