From e0819c5db6e084df53fd0f054a44672c5ce789bb Mon Sep 17 00:00:00 2001
From: Francois Perrad <francois.perrad@gadz.org>
Date: Wed, 28 Oct 2009 16:59:43 +0100
Subject: [PATCH] fix _PACKAGE

---
 src/lib/luapackage.pir | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lib/luapackage.pir b/src/lib/luapackage.pir
index 1783ff5..07bb74a 100644
--- a/src/lib/luapackage.pir
+++ b/src/lib/luapackage.pir
@@ -373,7 +373,7 @@ each option is a function to be applied over the module.
     inc $I0
     $I0 = index $S1, '.', $I0
     unless $I0 < 0 goto L5
-    dec $I1
+    inc $I1
     $S0 = substr $S1, 0, $I1
     # set _PACKAGE as package name (full module name minus last part)
     new $P0, 'LuaString'