[svn:mod_parrot] r351 - in mod_parrot/trunk: eg/perl6/ModPerl6 languages/perl6/lib languages/perl6/lib/ModPerl6
[email protected] Mon, 16 Jun 2008 08:53:47 -0700 (PDT)
| Newsgroups | perl.cvs.mod_parrot |
|---|---|
| Message-ID | <[email protected]> |
Author: jhorwitz
Date: Mon Jun 16 08:53:44 2008
New Revision: 351
Modified:
mod_parrot/trunk/eg/perl6/ModPerl6/Counter.pm
mod_parrot/trunk/eg/perl6/ModPerl6/Polly.pm
mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm
mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm
Log:
enforce perl 6 usage with "use v6"
Modified: mod_parrot/trunk/eg/perl6/ModPerl6/Counter.pm
==============================================================================
--- mod_parrot/trunk/eg/perl6/ModPerl6/Counter.pm (original)
+++ mod_parrot/trunk/eg/perl6/ModPerl6/Counter.pm Mon Jun 16 08:53:44 2008
@@ -23,6 +23,8 @@
module ModPerl6::Counter;
+use v6;
+
sub handler($r)
{
our $x;
Modified: mod_parrot/trunk/eg/perl6/ModPerl6/Polly.pm
==============================================================================
--- mod_parrot/trunk/eg/perl6/ModPerl6/Polly.pm (original)
+++ mod_parrot/trunk/eg/perl6/ModPerl6/Polly.pm Mon Jun 16 08:53:44 2008
@@ -20,6 +20,8 @@
module ModPerl6::Polly;
+use v6;
+
sub handler($r)
{
my $text = $r.args();
Modified: mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm
==============================================================================
--- mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm (original)
+++ mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm Mon Jun 16 08:53:44 2008
@@ -2,6 +2,8 @@
module ModPerl6::Registry;
+use v6;
+
our %registry;
sub gen_module_name($path)
Modified: mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm
==============================================================================
--- mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm (original)
+++ mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm Mon Jun 16 08:53:44 2008
@@ -16,6 +16,8 @@
module ModParrot::HLL::perl6;
+use v6;
+
our %loaded_modules;
sub load($handler)