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

Author: jhorwitz
Date: Sat Dec  6 08:33:22 2008
New Revision: 530

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

Log:
use handy alnum character class


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 Dec  6 08:33:22 2008
@@ -16,7 +16,7 @@
     # sanitize the module name
     # XXX fix when \w works in character classes
     #$name .= subst(/<-[\w]>/, '_', :global);
-    $name .= subst(/<-alpha -digit>/, '_', :global);
+    $name .= subst(/<-alnum>/, '_', :global);
     return "ModPerl6::Registry::Script::$name";
 }