From 6a6d0ef7d1b6e570f7b59c73318e74d30fc8ee90 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Tue, 6 Aug 2013 14:58:16 +0200
Subject: "range" now excludes second argument

---
 interpreter/ElymasGlobal.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'interpreter')

diff --git a/interpreter/ElymasGlobal.pm b/interpreter/ElymasGlobal.pm
index e4b8ee3..1cf8227 100644
--- a/interpreter/ElymasGlobal.pm
+++ b/interpreter/ElymasGlobal.pm
@@ -603,7 +603,7 @@ EOPERL
       $s = $s->[0];
       $e = $e->[0];
 
-      push @$data, [[map { [$_, 'int'] } $s .. $e], ['array', '[]', [['range', 0, $e - $s]], ['int']]];
+      push @$data, [[map { [$_, 'int'] } $s .. $e - 1], ['array', '[]', [['range', 0, $e - $s - 1]], ['int']]];
     }, ['func', 'seq'], 'active'],
   'loop' => [sub {
       my ($data, $scope) = @_;
-- 
cgit v1.2.3