From 90eaf28ad6af34f3fd46663ed131bcfea811fe98 Mon Sep 17 00:00:00 2001
From: Andrew Egeler <andrew@egeler.us>
Date: Sat, 29 Mar 2014 12:19:02 -0400
Subject: Require file extension to be at end of filename

---
 tools/build/module-install.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/build/module-install.pl b/tools/build/module-install.pl
index f6e06e0..b6be9c7 100644
--- a/tools/build/module-install.pl
+++ b/tools/build/module-install.pl
@@ -24,14 +24,14 @@ while (<>) {
     find({ no_chdir=>1, wanted => \&libcopy }, $mlib);
 
     sub libcopy {
-        return unless /\.pm6?|\.pod/;
+        return unless /\.pm6?$|\.pod$/;
         my $source = $File::Find::name;
         my $target = $source;
         $target =~ s/\Q$mlib\E/$perl6lib/;
         print "$source => $target\n";
         mkpath dirname($target);
         copy($source, $target) or die "copy failed: $!\n";
-        push @mod_pms, $target if $target =~ /\.pm6?/;
+        push @mod_pms, $target if $target =~ /\.pm6?$/;
     }
     
     my %usages_of;
-- 
cgit v1.1