Match .pl/.p6 at the end of the filename

Raku · Apr 10, 2015 · aa6eb51 · aa6eb51
1 parent d0ad0ef
commit aa6eb51
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Pod/Htmlify.pm6 b/lib/Pod/Htmlify.pm6
@@ -159,7 +159,7 @@ class Website is export {
                 my $pod = format-author-heading($example);
                 $pod.push: source-reference($file, $category-key);
                 $pod.push: source-without-pod($file);
-                my $html-file = $file.IO.basename.subst(/\.p(l|6)/, ".html");
+                my $html-file = $file.IO.basename.subst(/\.p(l|6)$/, ".html");
                 $html-file = $!base-html-dir ~ "/categories/$category-key/" ~ $html-file;
                 spurt $html-file, self.p2h($pod);
             }
@@ -175,7 +175,7 @@ class Website is export {
                         my $pod = format-author-heading($example);
                         $pod.push: source-reference($file, $subcategory-key);
                         $pod.push: source-without-pod($file);
-                        my $html-file = $file.IO.basename.subst(/\.p(l|6)/, ".html");
+                        my $html-file = $file.IO.basename.subst(/\.p(l|6)$/, ".html");
                         $html-file = $!base-html-dir ~ "/categories/$category-key/$subcategory-key/" ~ $html-file;
                         spurt $html-file, self.p2h($pod);
                     }