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

Author: jhorwitz
Date: Tue Jun 23 10:13:42 2009
New Revision: 649

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

Log:
use a more readable junction for checking the apache handler


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	Tue Jun 23 10:13:42 2009
@@ -215,7 +215,7 @@
 {
     my $r = $ctx.request_rec();
 
-    unless ($r.handler() ~~ any(<modperl6 perl6-script>)) {
+    unless ($r.handler() ~~ 'modperl6'|'perl6-script') {
         return $Apache::Const::DECLINED;
     }
 

• [svn:mod_parrot] r649 - mod_parrot/trunk/languages/perl6/lib by jhorwitz