diff options
author | Tobias Leich <email@froggs.de> | 2014-03-29 19:40:56 +0100 |
---|---|---|
committer | Tobias Leich <email@froggs.de> | 2014-03-29 19:40:56 +0100 |
commit | f2236b4d8ff36dd6810ac85f24d69dd22f23933b (patch) | |
tree | f4cb80ae8aec75392a656215b2c061ec9fb7f580 /tools/build/module-install.pl | |
parent | a5ffea1cd34e714e500ed9cc7fe6ea2735dbe98a (diff) | |
parent | 90eaf28ad6af34f3fd46663ed131bcfea811fe98 (diff) |
Merge pull request #37 from retupmoca/tristar
Require file extension to be at end of filename
Diffstat (limited to 'tools/build/module-install.pl')
-rw-r--r-- | tools/build/module-install.pl | 4 |
1 files 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; |