Remove left-over uneeded $comma

This commit is contained in:
Pragmatic Software 2015-01-18 18:52:42 -08:00
parent a0f0249c8f
commit 540243764f
1 changed files with 0 additions and 1 deletions

View File

@ -15,7 +15,6 @@ eval {
print "Language '$language' is not supported.\n";
my @languages = glob 'languages/*.pm';
my $comma = '';
print "Supported languages are: ";
print join(", ", grep { $_ = basename $_; $_ =~ s/.pm$//; $_ !~ m/^_/ } sort @languages);
print "\n";