Ignore backup~ files when showing supported languages

This commit is contained in:
Pragmatic Software 2015-01-18 05:41:48 -08:00
parent ae957c0314
commit 8999e22db1
1 changed files with 1 additions and 1 deletions

View File

@ -19,7 +19,7 @@ eval {
print "Supported languages are: ";
foreach my $lang (sort @languages) {
$lang = basename($lang);
next if $lang =~ m/^_/;
next if $lang =~ m/^_|~$/g;
$lang =~ s/\.pm$//;
print "$comma$lang";
$comma = ', ';