Perlito5 - set '$]' to '5.020000'

fglock · May 30, 2014 · adb9662 · adb9662
1 parent 7985938
commit adb9662
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/html/perlito5.js b/html/perlito5.js
@@ -12519,7 +12519,7 @@ return (p5pkg["Perlito5::Match"].flat([p5pkg["Perlito5::Grammar::Number"]["v__"]
 		};
 		if ( p5bool(p5make_package("main")["v_]"]) ) {}
 		else {
-			p5make_package("main")["v_]"] = (5.014001)
+			p5make_package("main")["v_]"] = ('5.020000')
 		};
 		if ( (p5pkg["main"]["v_/"] != null) ) {}
 		else {

diff --git a/perlito5.pl b/perlito5.pl
@@ -8188,7 +8188,7 @@ package Perlito5;
 # use Perlito5::strict
 ${chr(15)} = 'perlito5'
     unless defined(${chr(15)});
-${'main::]'} = 5.014001
+${'main::]'} = '5.020000'
     unless ${'main::]'};
 ${'/'} = chr(10)
     unless defined(${'/'});

diff --git a/src5/lib/Perlito5/Runtime.pm b/src5/lib/Perlito5/Runtime.pm
@@ -3,7 +3,7 @@ package Perlito5;
 use Perlito5::strict;
 
 $^O = 'perlito5'    unless defined $^O;
-$]  = 5.014001      unless $];      # $] is defined(), but ${"main::]"} is not
+$]  = '5.020000'    unless $];      # $] is defined(), but ${"main::]"} is not
 $/  = chr(10)       unless defined $/;
 $"  = ' '           unless defined $";
 $,  = undef         unless defined $,;