Perlito5 - parser - fix package autovivification; 3 more lex.t tests …

…pass
fglock · Nov 28, 2012 · 0bc2e7a · 0bc2e7a
1 parent 5879509
commit 0bc2e7a
Show file tree

Hide file tree

Showing 5 changed files with 22 additions and 19 deletions.
diff --git a/html/perlito5.js b/html/perlito5.js
@@ -253,6 +253,7 @@ p5make_package("Perlito5::Runtime");
 p5make_package("Perlito5::Grammar");
 
 function p5make_sub(pkg_name, sub_name, func) {
+    p5make_package(pkg_name);
     p5pkg[pkg_name][sub_name] = func;
 }
 

diff --git a/perlito5.pl b/perlito5.pl
diff --git a/src5/lib/Perlito5/Javascript2/Runtime.pm b/src5/lib/Perlito5/Javascript2/Runtime.pm
@@ -259,6 +259,7 @@ p5make_package("Perlito5::Runtime");
 p5make_package("Perlito5::Grammar");
 
 function p5make_sub(pkg_name, sub_name, func) {
+    p5make_package(pkg_name);
     p5pkg[pkg_name][sub_name] = func;
 }
 

diff --git a/src5/lib/Perlito5/Javascript3/Runtime.pm b/src5/lib/Perlito5/Javascript3/Runtime.pm
@@ -272,6 +272,7 @@ p5make_package("Perlito5::Runtime");
 p5make_package("Perlito5::Grammar");
 
 function p5make_sub(pkg_name, sub_name, func) {
+    p5make_package(pkg_name);
     p5pkg[pkg_name][sub_name] = func;
 }
 

diff --git a/t5/base/lex.t b/t5/base/lex.t
@@ -1,7 +1,7 @@
 #!./perl
 
 #print "1..57\n";
-print "1..43\n";
+print "1..46\n";
 
 $x = 'x';
 
@@ -249,21 +249,21 @@ print (((q{{\{\(}} . q{{\)\}}}) eq '{{\(}{\)}}') ? "ok 29\n" : "not ok 29\n");
 ##  ++$test;
 }
 ## 
-## # Tests 52-54
-## # => should only quote foo::bar if it isn't a real sub. AMS, 20010621
-## 
-## sub xyz::foo { "bar" }
-## my %str = (
-##     foo      => 1,
-##     xyz::foo => 1,
-##     xyz::bar => 1,
-## );
-## 
-## my $test = 52;
-## print ((exists $str{foo}      ? "" : "not ")."ok $test\n"); ++$test;
-## print ((exists $str{bar}      ? "" : "not ")."ok $test\n"); ++$test;
-## print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n"); ++$test;
-## 
+ # Tests 52-54
+ # => should only quote foo::bar if it isn't a real sub. AMS, 20010621
+
+ sub xyz::foo { "bar" }
+ my %str = (
+     foo      => 1,
+     xyz::foo => 1,
+     xyz::bar => 1,
+ );
+
+ my $test = 43;
+ print ((exists $str{foo}      ? "" : "not ")."ok $test\n"); ++$test;
+ print ((exists $str{bar}      ? "" : "not ")."ok $test\n"); ++$test;
+ print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n"); ++$test;
+
 ## sub foo::::::bar { print "ok $test\n"; $test++ }
 ## foo::::::bar;
 ## 
@@ -274,4 +274,4 @@ print (((q{{\{\(}} . q{{\)\}}}) eq '{{\(}{\)}}') ? "ok 29\n" : "not ok 29\n");
 # Is "[~" scanned correctly?
 @a = (1,2,3);
 print "not " unless($a[~~2] == 3);
-print "ok 43\n";
+print "ok 46\n";