diff options
| author | Drahflow <drahflow@gmx.de> | 2013-08-06 14:58:16 +0200 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2013-08-06 14:58:16 +0200 |
| commit | 6a6d0ef7d1b6e570f7b59c73318e74d30fc8ee90 (patch) | |
| tree | 340d5480a8351002e66c8d4fe48756ebb3a09c7e /interpreter | |
| parent | e96da330141bb0e79ab075bab59a2bea04ff5f3f (diff) | |
"range" now excludes second argument
Diffstat (limited to 'interpreter')
| -rw-r--r-- | interpreter/ElymasGlobal.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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) = @_; |