From 0b82f7714b4679a94e7a895ae5ecd05840e4cfcb Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Sat, 15 Nov 2008 17:51:46 +0100
Subject: [PATCH] fix month number (localtime is off by one)

---
 lib/Language/Befunge/Ops.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Language/Befunge/Ops.pm b/lib/Language/Befunge/Ops.pm
index 2d19269..1bc6186 100644
--- a/lib/Language/Befunge/Ops.pm
+++ b/lib/Language/Befunge/Ops.pm
@@ -978,7 +978,7 @@ sub sys_info {
 
     # 15/16. Current date/time.
     my ($s,$m,$h,$dd,$mm,$yy)=localtime;
-    push @infos, $yy*256*256 + $mm*256 + $dd;
+    push @infos, $yy*256*256 + ($mm+1)*256 + $dd;
     push @infos, $h*256*256 + $m*256 + $s;
 
     # 17. Size of stack stack.
-- 
2.11.4.GIT