[svn:mod_parrot] r488 - mod_parrot/trunk/languages/perl6/lib

Author: jhorwitz
Date: Wed Nov 12 13:55:05 2008
New Revision: 488

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

Log:
use proper syntax for regex captures


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	Wed Nov 12 13:55:05 2008
@@ -148,8 +148,8 @@
 {
     my %cfg := ModParrot::Apache::Module::get_config("modparrot_perl6_module");
     if (@args[0] ~~ /(\+|\-)(.+)/) {
-        my $modifier = ~$/[0];
-        my $option = ~$/[1].lc;
+        my $modifier = $0;
+        my $option = $1.lc;
         my $val = ($modifier eq '+');
 	if (%valid_options{$option}) {
                 %cfg<options>{$option} = $val;