Skip to content

Commit

Permalink
Revert "Perlito5 - add Perlito5X namespace"
Browse files Browse the repository at this point in the history 
This reverts commit 828649a.
this breaks 'make'
  • Loading branch information
@fglock
fglock committed Oct 18, 2012
1 parent b62fba5 commit 1f09a80
Show file tree
Hide file tree
Showing 13 changed files with 97 additions and 79 deletions.
4 changes: 2 additions & 2 deletions html/perlito5.html
View file
Expand Up @@ -129,8 +129,8 @@ <h1><a href="http://www.perlito.org">"Perlito" Perl 5 Compiler</a></h1>
return true;
};
p5pkg["main"]["v_^O"] = "browser";
p5pkg["main"]["Hash_INC"]["strict.pm"] = "Perlito5X/strict.pm";
p5pkg["main"]["Hash_INC"]["warnings.pm"] = "Perlito5X/warnings.pm";
p5pkg["main"]["Hash_INC"]["Perlito5/strict.pm"] = "Perlito5/strict.pm";
p5pkg["main"]["Hash_INC"]["Perlito5/warnings.pm"] = "Perlito5/warnings.pm";

var source = document.getElementById('source').value;
var pos = 0;
Expand Down
44 changes: 22 additions & 22 deletions html/perlito5.js
View file
Expand Up @@ -1770,30 +1770,30 @@ var p5100 = p5pkg['main'];
(function () {
var p5101 = p5make_package("Perlito5");
(function () {
var p5102 = p5make_package("strict");
p5make_sub("strict", "import", function (List__, p5want) {
var p5102 = p5make_package("Perlito5::strict");
p5make_sub("Perlito5::strict", "import", function (List__, p5want) {
return ((p5pkg["Perlito5"]["v_STRICT"] = (1)));
});
p5make_sub("strict", "unimport", function (List__, p5want) {
p5make_sub("Perlito5::strict", "unimport", function (List__, p5want) {
return ((p5pkg["Perlito5"]["v_STRICT"] = (0)));
});
1;
})()
;
// use strict
// use Perlito5::strict
;
(function () {
var p5103 = p5make_package("warnings");
p5make_sub("warnings", "import", function (List__, p5want) {
var p5103 = p5make_package("Perlito5::warnings");
p5make_sub("Perlito5::warnings", "import", function (List__, p5want) {
return ((p5pkg["Perlito5"]["v_WARNINGS"] = (1)));
});
p5make_sub("warnings", "unimport", function (List__, p5want) {
p5make_sub("Perlito5::warnings", "unimport", function (List__, p5want) {
return ((p5pkg["Perlito5"]["v_WARNINGS"] = (0)));
});
1;
})()
;
// use warnings
// use Perlito5::warnings
;
(function () {
null;
Expand Down Expand Up @@ -9790,6 +9790,8 @@ var p5100 = p5pkg['main'];
p5pkg["Perlito5::Precedence"].add_term(['use', function (List__, p5want) {
return (p5call(p5pkg["Perlito5::Grammar::Use"], "term_use", p5list_to_a(List__.p5aget(0), List__.p5aget(1)), p5want));
}], null);
var Hash_Perlito_internal_module = {};
(Hash_Perlito_internal_module = {'strict' : 'Perlito5::strict', 'warnings' : 'Perlito5::warnings', 'utf8' : 'Perlito5::utf8', 'bytes' : 'Perlito5::bytes', 'encoding' : 'Perlito5::encoding'});
p5make_sub("Perlito5::Grammar::Use", "use_decl", function (List__, p5want) {
var v_grammar;
(v_grammar = (List__.p5aget(0)));
Expand Down Expand Up @@ -9943,7 +9945,7 @@ var p5100 = p5pkg['main'];
var r;
p5pkg["main"]["v_@"] = "";
try {
r = eval(perl5_to_js(p5str(v_list_code), "Perlito5::Grammar::Use", (new p5ArrayRef(p5list_to_a((new p5HashRef(p5a_to_h(p5list_to_a('$list_code', (new p5HashRef({'decl' : 'my'})), '$m', (new p5HashRef({'decl' : 'my'})), '@list', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$list', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef({})), (new p5HashRef(p5a_to_h(p5list_to_a('$pos1', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef({})), (new p5HashRef(p5a_to_h(p5list_to_a('$pos1', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$MATCH', (new p5HashRef({'decl' : 'my'})), '$grammar', (new p5HashRef({'decl' : 'my'})), '$pos', (new p5HashRef({'decl' : 'my'})), '$str', (new p5HashRef({'decl' : 'my'})), '$tmp', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$@', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$^O', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$|', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '%ENV', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '%INC', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@#', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@ARGV', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@INC', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@_', (new p5HashRef({'decl' : 'my'}))))))))), "list"))
r = eval(perl5_to_js(p5str(v_list_code), "Perlito5::Grammar::Use", (new p5ArrayRef(p5list_to_a((new p5HashRef(p5a_to_h(p5list_to_a('$list_code', (new p5HashRef({'decl' : 'my'})), '$m', (new p5HashRef({'decl' : 'my'})), '@list', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$list', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef({})), (new p5HashRef(p5a_to_h(p5list_to_a('$pos1', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef({})), (new p5HashRef(p5a_to_h(p5list_to_a('$pos1', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$MATCH', (new p5HashRef({'decl' : 'my'})), '$grammar', (new p5HashRef({'decl' : 'my'})), '$pos', (new p5HashRef({'decl' : 'my'})), '$str', (new p5HashRef({'decl' : 'my'})), '$tmp', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '%Perlito_internal_module', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$@', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$^O', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$|', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '%ENV', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '%INC', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@#', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@ARGV', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@INC', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@_', (new p5HashRef({'decl' : 'my'}))))))))), "list"))
}
catch(err) {
if ( err instanceof p5_error || err instanceof Error ) {
Expand Down Expand Up @@ -10006,6 +10008,9 @@ return r;

else {
if ( p5bool(p5pkg["Perlito5"]["v_EXPAND_USE"]) ) {
if ( (Hash_Perlito_internal_module).hasOwnProperty(v_module_name) ) {
(v_module_name = (Hash_Perlito_internal_module.p5hget(p5str(v_module_name))));
};
var v_filename;
(v_filename = (p5pkg["Perlito5::Grammar::Use"].modulename_to_filename([v_module_name], 0)));
p5pkg["Perlito5::Grammar::Use"]["require"]([p5str(v_filename), 0]);
Expand Down Expand Up @@ -10056,12 +10061,12 @@ return r;
(v_self = (List__.shift()));
if ( (p5str(p5call(v_self, "mod", [], 0)) == 'strict') ) {
if ( (p5str(p5call(v_self, "code", [], 0)) == 'use') ) {
return (p5call(p5pkg["strict"], "import", [], p5want));
return (p5call(p5pkg["Perlito5::strict"], "import", [], p5want));
}

else {
if ( (p5str(p5call(v_self, "code", [], 0)) == 'no') ) {
return (p5call(p5pkg["strict"], "unimport", [], p5want));
return (p5call(p5pkg["Perlito5::strict"], "unimport", [], p5want));
}

else {
Expand Down Expand Up @@ -10090,14 +10095,6 @@ return r;
};
p5pkg["Perlito5::Grammar::Use"].die([['Compilation failed in require']], null);
};
p5for_lex(function (v_prefix) {
var v_realfilename;
(v_realfilename = ((p5str(v_prefix) + '/Perlito5X/' + p5str(v_filename))));
if ( p5bool(p5is_file(p5str(v_realfilename))) ) {
p5pkg["main"]["Hash_INC"].p5hset(p5str(v_filename), (v_realfilename));
throw(p5context(['todo'], p5want));
};
}, p5list_to_a(p5pkg["main"]["List_INC"], '.'), false, "");
p5for_lex(function (v_prefix) {
var v_realfilename;
(v_realfilename = ((p5str(v_prefix) + '/' + p5str(v_filename))));
Expand Down Expand Up @@ -10125,9 +10122,12 @@ return r;
(v_stmt = (List__.shift()));
var v_module_name;
(v_module_name = (p5call(v_stmt, "mod", [], 0)));
if ( (p5str(v_module_name) == 'feature') ) {
if ( (((p5str(v_module_name) == 'strict') || (p5str(v_module_name) == 'warnings')) || (p5str(v_module_name) == 'feature')) ) {
throw(p5context([], p5want));
};
if ( (Hash_Perlito_internal_module).hasOwnProperty(v_module_name) ) {
(v_module_name = (Hash_Perlito_internal_module.p5hget(p5str(v_module_name))));
};
var v_filename;
(v_filename = (p5pkg["Perlito5::Grammar::Use"].modulename_to_filename([v_module_name], 0)));
if ( (p5str(p5pkg["Perlito5::Grammar::Use"].filename_lookup([v_filename], 0)) == 'done') ) {
Expand Down Expand Up @@ -10193,7 +10193,7 @@ return r;
var r;
p5pkg["main"]["v_@"] = "";
try {
r = eval(perl5_to_js(p5str(p5pkg["Perlito5::IO"].slurp(p5list_to_a(p5pkg["main"]["Hash_INC"].p5hget(p5str(v_filename))), 0)), "Perlito5::Grammar::Use", (new p5ArrayRef(p5list_to_a((new p5HashRef(p5a_to_h(p5list_to_a('$filename', (new p5HashRef({'decl' : 'my'})), '$is_bareword', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$@', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$^O', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$|', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '%ENV', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '%INC', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@#', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@ARGV', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@INC', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@_', (new p5HashRef({'decl' : 'my'}))))))))), ""))
r = eval(perl5_to_js(p5str(p5pkg["Perlito5::IO"].slurp(p5list_to_a(p5pkg["main"]["Hash_INC"].p5hget(p5str(v_filename))), 0)), "Perlito5::Grammar::Use", (new p5ArrayRef(p5list_to_a((new p5HashRef(p5a_to_h(p5list_to_a('$filename', (new p5HashRef({'decl' : 'my'})), '$is_bareword', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5::Grammar::Use'})), '%Perlito_internal_module', (new p5HashRef({'decl' : 'my'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'Perlito5'})))))), (new p5HashRef(p5a_to_h(p5list_to_a('$@', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$AUTOLOAD', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$^O', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$_', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$a', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$b', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '$|', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '%ENV', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '%INC', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@#', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@ARGV', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@INC', (new p5HashRef({'decl' : 'our', 'namespace' : 'main'})), '@_', (new p5HashRef({'decl' : 'my'}))))))))), ""))
}
catch(err) {
if ( err instanceof p5_error || err instanceof Error ) {
Expand Down Expand Up @@ -12684,7 +12684,7 @@ return r;
;
(function () {
var p5159 = p5make_package("Perlito5::Runtime");
// use strict
// use Perlito5::strict
;
if ( p5bool(p5pkg["main"]["v_]"]) ) {
null;
Expand Down
33 changes: 22 additions & 11 deletions perlito5.pl
View file
Expand Up @@ -5257,6 +5257,7 @@ package Perlito5::Grammar::Use;
Perlito5::Precedence::add_term('use', sub {
Perlito5::Grammar::Use->term_use($_[0], $_[1])
});
((my %Perlito_internal_module) = ('strict', 'Perlito5::strict', 'warnings', 'Perlito5::warnings', 'utf8', 'Perlito5::utf8', 'bytes', 'Perlito5::bytes', 'encoding', 'Perlito5::encoding'));
sub Perlito5::Grammar::Use::use_decl {
((my $grammar) = $_[0]);
((my $str) = $_[1]);
Expand Down Expand Up @@ -5406,6 +5407,9 @@ sub Perlito5::Grammar::Use::parse_time_eval {
}
else {
if ($Perlito5::EXPAND_USE) {
if (exists($Perlito_internal_module{$module_name})) {
($module_name = $Perlito_internal_module{$module_name})
};
((my $filename) = modulename_to_filename($module_name));
Perlito5::Grammar::Use::require($filename);
if (!($skip_import)) {
Expand Down Expand Up @@ -5433,11 +5437,11 @@ sub Perlito5::Grammar::Use::emit_time_eval {
((my $self) = shift());
if (($self->mod() eq 'strict')) {
if (($self->code() eq 'use')) {
strict->import()
Perlito5::strict->import()
}
else {
if (($self->code() eq 'no')) {
strict->unimport()
Perlito5::strict->unimport()
}
}
}
Expand All @@ -5455,13 +5459,6 @@ sub Perlito5::Grammar::Use::filename_lookup {
};
die('Compilation failed in require')
};
for my $prefix ((@INC, '.')) {
((my $realfilename) = ($prefix . '/Perlito5X/' . $filename));
if (-f($realfilename)) {
($INC{$filename} = $realfilename);
return ('todo')
}
};
for my $prefix ((@INC, '.')) {
((my $realfilename) = ($prefix . '/' . $filename));
if (-f($realfilename)) {
Expand All @@ -5475,9 +5472,12 @@ sub Perlito5::Grammar::Use::expand_use {
((my $comp_units) = shift());
((my $stmt) = shift());
((my $module_name) = $stmt->mod());
if (($module_name eq 'feature')) {
if (((($module_name eq 'strict') || ($module_name eq 'warnings')) || ($module_name eq 'feature'))) {
return ()
};
if (exists($Perlito_internal_module{$module_name})) {
($module_name = $Perlito_internal_module{$module_name})
};
((my $filename) = modulename_to_filename($module_name));
if ((filename_lookup($filename) eq 'done')) {
return ()
Expand Down Expand Up @@ -11716,11 +11716,22 @@ package Perlito5::AST::Use;
;

# use Perlito5::Precedence
;
package main;
package Perlito5::strict;
sub Perlito5::strict::import {
($Perlito5::STRICT = 1)
};
sub Perlito5::strict::unimport {
($Perlito5::STRICT = 0)
};
1;

;
package main;
package Perlito5::Runtime;

# use strict
# use Perlito5::strict
;
if (${'main::]'}) {

Expand Down
34 changes: 21 additions & 13 deletions src5/lib/Perlito5/Grammar/Use.pm
View file
Expand Up @@ -7,6 +7,16 @@ use Perlito5::Grammar;
Perlito5::Precedence::add_term( 'no' => sub { Perlito5::Grammar::Use->term_use($_[0], $_[1]) } );
Perlito5::Precedence::add_term( 'use' => sub { Perlito5::Grammar::Use->term_use($_[0], $_[1]) } );


my %Perlito_internal_module = (
strict => 'Perlito5::strict',
warnings => 'Perlito5::warnings',
utf8 => 'Perlito5::utf8',
bytes => 'Perlito5::bytes',
encoding => 'Perlito5::encoding',
);


token use_decl { 'use' | 'no' };

token term_use {
Expand Down Expand Up @@ -78,6 +88,9 @@ sub parse_time_eval {
if ( $Perlito5::EXPAND_USE ) {
# normal "use" is not disabled, go for it

$module_name = $Perlito_internal_module{$module_name}
if exists $Perlito_internal_module{$module_name};

# "require" the module
my $filename = modulename_to_filename($module_name);
# warn "# require $filename\n";
Expand Down Expand Up @@ -112,10 +125,10 @@ sub emit_time_eval {

if ($self->mod eq 'strict') {
if ($self->code eq 'use') {
strict->import();
Perlito5::strict->import();
}
elsif ($self->code eq 'no') {
strict->unimport();
Perlito5::strict->unimport();
}
}
}
Expand All @@ -134,14 +147,6 @@ sub filename_lookup {
die "Compilation failed in require";
}

for my $prefix (@INC, '.') {
my $realfilename = "$prefix/Perlito5X/$filename";
if (-f $realfilename) {
$INC{$filename} = $realfilename;
return "todo";
}
}

for my $prefix (@INC, '.') {
my $realfilename = "$prefix/$filename";
if (-f $realfilename) {
Expand All @@ -157,10 +162,13 @@ sub expand_use {
my $stmt = shift;

my $module_name = $stmt->mod;

# TODO - support 'use feature'
return
if $module_name eq 'feature';
if $module_name eq 'strict'
|| $module_name eq 'warnings'
|| $module_name eq 'feature';

$module_name = $Perlito_internal_module{$module_name}
if exists $Perlito_internal_module{$module_name};

my $filename = modulename_to_filename($module_name);

Expand Down
2 changes: 1 addition & 1 deletion src5/lib/Perlito5/Runtime.pm
View file
@@ -1,6 +1,6 @@
package Perlito5::Runtime;

use strict;
use Perlito5::strict;

$] = 5.014001
unless $];
Expand Down

0 comments on commit 1f09a80

Please sign in to comment.