[svn:mod_parrot] r590 - in mod_parrot/trunk/languages/perl6/lib: . ModPerl6

Author: jhorwitz
Date: Sun Jan 18 07:13:18 2009
New Revision: 590

Modified:
   mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm
   mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm

Log:
move module declaration to proper location.  precompiled mp6 might still break,
but since rakudo no longer supports my workaround, we'll have to live with
longer startup times.


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	Sun Jan 18 07:13:18 2009
@@ -1,13 +1,13 @@
 # $Id$
 
+module ModPerl6::Registry;
+
 use v6;
 
 # for perl 6 functionality not yet supported by rakudo
 use ModPerl6::Fudge;
 use Apache::Const;
 
-module ModPerl6::Registry;
-
 our %registry;
 regex header_regex { ^^ ([\w|'-']+) ':' <ws> (\N+) $$ };
 

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	Sun Jan 18 07:13:18 2009
@@ -14,6 +14,8 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 
+module ModParrot::HLL::perl6;
+
 use v6;
 use ModParrot::Const;
 use Apache::Const;
@@ -21,8 +23,6 @@
 # for perl 6 functionality not yet supported by rakudo
 use ModPerl6::Fudge;
 
-module ModParrot::HLL::perl6;
-
 our %loaded_modules;
 our %valid_options = <
     enable
@@ -112,7 +112,6 @@
 # XXX should cache the handler form during configuration
 sub call_handler($handler, *@args)
 {
-    my $sub;
     my $res;
 
     return $Apache::Const::DECLINED unless defined($handler);