- Array.rotate() will always return a new array.

- Fixed the positions of two errors inside the Parser.
trizen · Nov 25, 2015 · 606c837 · 606c837
1 parent 7de49f0
commit 606c837
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/Sidef/Parser.pm b/lib/Sidef/Parser.pm
@@ -977,7 +977,7 @@ package Sidef::Parser {
                 return Sidef::Variable::NamedParam->new($name, $obj);
             }
 
-            # Declaration of variable types
+            # Declaration of variables
             if (/\Gvar\b\h*/gc) {
                 my $type = 'var';
                 my $vars = $self->parse_init_vars(code => $opt{code}, type => $type);
@@ -1021,7 +1021,7 @@ package Sidef::Parser {
                     $args = $self->parse_obj(code => $opt{code});
                     $args // $self->fatal_error(
                                                 code  => $_,
-                                                pos   => pos,
+                                                pos   => pos($_) - 2,
                                                 error => qq{expected an expression after "=" in `has` declaration},
                                                );
                 }
@@ -1056,7 +1056,7 @@ package Sidef::Parser {
                     my $obj = $self->parse_obj(code => $opt{code});
                     $obj // $self->fatal_error(
                                                code  => $_,
-                                               pos   => pos,
+                                               pos   => pos($_) - 2,
                                                error => qq{expected an expression after $type "$name"},
                                               );
 

diff --git a/lib/Sidef/Types/Array/Array.pm b/lib/Sidef/Types/Array/Array.pm
@@ -1288,7 +1288,7 @@ package Sidef::Types::Array::Array {
         my ($self, $num) = @_;
 
         $num = $num->get_value % ($#{$self} + 1);
-        return $self if $num == 0;
+        return $self->new(@{$self}) if $num == 0;
 
         # Surprisingly, this is slower:
         # $self->new(@{$self}[$num .. $#{$self}], @{$self}[0 .. $num - 1]);