[svn:mod_parrot] r424 - mod_parrot/branches/hll-modules/languages/perl6/lib

[email protected] Thu, 18 Sep 2008 12:32:45 -0700 (PDT)
Newsgroups perl.cvs.mod_parrot
Message-ID <[email protected]>
Author: jhorwitz
Date: Thu Sep 18 12:32:45 2008
New Revision: 424

Modified:
   mod_parrot/branches/hll-modules/languages/perl6/lib/mod_perl6.pm

Log:
remove debugging cruft and fix formatting


Modified: mod_parrot/branches/hll-modules/languages/perl6/lib/mod_perl6.pm
==============================================================================
--- mod_parrot/branches/hll-modules/languages/perl6/lib/mod_perl6.pm	(original)
+++ mod_parrot/branches/hll-modules/languages/perl6/lib/mod_perl6.pm	Thu Sep 18 12:32:45 2008
@@ -32,8 +32,7 @@
 
 sub server_create()
 {
-    my %cfg =
-        'foo' => 'bar';
+    my %cfg;
     return %cfg;
 }
 
@@ -48,7 +47,8 @@
     my $r = $ctx.request_rec();
 
     my %cfg = Apache::Module::get_config("modparrot_perl6_module");
-    my %dircfg = Apache::Module::get_config("modparrot_perl6_module", $r.per_dir_config());
+    my %dircfg = Apache::Module::get_config("modparrot_perl6_module",
+        $r.per_dir_config());
 
     my $handler = %dircfg{'response_handler'};
     load($handler);