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

Author: jhorwitz
Date: Fri Dec  5 16:34:30 2008
New Revision: 529

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

Log:
fix regex in module name generation


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	Fri Dec  5 16:34:30 2008
@@ -14,7 +14,9 @@
 {
     my $name = $path;
     # sanitize the module name
-    $name .= subst(/<-[\w]>/, '_', :global);
+    # XXX fix when \w works in character classes
+    #$name .= subst(/<-[\w]>/, '_', :global);
+    $name .= subst(/<-alpha -digit>/, '_', :global);
     return "ModPerl6::Registry::Script::$name";
 }