[proof-of-concept] added missing '?' quantifier

Found by tadzik++.
masak · Sep 11, 2010 · 8599dfe · 8599dfe
1 parent 61a5869
commit 8599dfe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/proof-of-concept b/proof-of-concept
@@ -281,7 +281,7 @@ class POC::Installer does App::Pls::Installer {
             }
 
             for find-files("$target-dir/lib", /\.pm6?$/) -> $pmfile {
-                my $pirfile = $pmfile.subst(/\.pm6$/, '.pir');
+                my $pirfile = $pmfile.subst(/\.pm6?$/, '.pir');
                 my $just-dir = $pirfile.subst(/[<-[/]>+ '/'] ** 3/, '')\
                                        .subst(/'/' <-[/]>+ $/, '');
                 my $target-dir = "%*ENV<HOME>/.perl6/lib/$just-dir";