- Included and declared modules are now executed in reverse order.

Example:
	module Foo {
		say "foo";
		module Bar {
			say "bar";
		}
	}

Prints:
	"bar"
	"foo"

This fixes completely the deparsing of modules and the inclusion of modules in other modules.

lib/Sidef/Parser.pm

@@ -2191,7 +2191,7 @@ package Sidef::Parser {
                 local $parser->{ref_vars}{$name} = $self->{ref_vars}{$name} if exists($self->{ref_vars}{$name});
 
                 if ($name ne 'main' and not grep $_ eq $name, @Sidef::Exec::NAMESPACES) {
-                    push @Sidef::Exec::NAMESPACES, $name;
+                    unshift @Sidef::Exec::NAMESPACES, $name;
                 }
 
                 my $code = '{' . substr($_, pos);
@@ -2360,7 +2360,7 @@ package Sidef::Parser {
 
                     local $parser->{class} = $name if defined $name;
                     if (defined $name and $name ne 'main' and not grep $_ eq $name, @Sidef::Exec::NAMESPACES) {
-                        push @Sidef::Exec::NAMESPACES, $name;
+                        unshift @Sidef::Exec::NAMESPACES, $name;
                     }
                     my $struct = $parser->parse_script(code => \$content);
 

scripts/module_order_and_redeclaration.sf

@@ -19,15 +19,15 @@
     C::e();
     C::f();
 }.capture.lines == [
-    'a',
-    'b',
-    'c',
-    'C redeclared',
-    'after first C',
-    'main module',
-    'e',
-    'f',
-] || "error".die;
+    "after first C",
+    "c",
+    "C redeclared",
+    "b",
+    "a",
+    "main module",
+    "e",
+    "f",
+] || die "error";
 
 #
 ## Redeclaring functions
@@ -61,9 +61,14 @@
         P::f();
     };
     P::f();
-}.capture.lines
-    == <inO afterP P::f() inP P::f()>
-        || "error-3".die;
+}.capture.lines == [
+    "inP",
+    "inO",
+    "afterP",
+    "P::f()",
+    "P::f()"
+] || die "error-3";
+
 
 #
 ## Changing module vars

scripts/test_all.pl

@@ -19,15 +19,6 @@
       )
 } = ();
 
-if (grep { $_ eq '-O2' } @ARGV) {
-    @ignored{
-        qw(
-          module_definition.sf
-          module_order_and_redeclaration.sf
-          )
-    } = ();
-}
-
 my $regex_filter;
 if (@ARGV and $ARGV[0] =~ m{^/(.+)/$}) {
     $regex_filter = qr/$1/i;