[svn:mod_parrot] r494 - mod_parrot/trunk/languages/perl6/lib/ModPerl6

Author: jhorwitz
Date: Sat Nov 15 13:04:54 2008
New Revision: 494

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

Log:
fudge interpolated namespaces


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	Sat Nov 15 13:04:54 2008
@@ -4,6 +4,9 @@
 
 use v6;
 
+# for perl 6 functionality not yet supported by rakudo
+use ModPerl6::Fudge;
+
 our %registry;
 
 sub gen_module_name($path)
@@ -42,7 +45,9 @@
     my $interp = ModParrot::Interpreter.new();
     $interp.capture_stdout(1);
     my $mod = %registry{$script};
-    ::($mod)::_handler();
+    #::($mod)::_handler();
+    my $res = ModPerl6::Fudge::call_sub_with_namespace($mod, '_handler');
+
     my $buf = $interp.dump_stdout();
     $interp.capture_stdout(0);