3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-25 04:02:37 +01:00

Remove left-over uneeded $comma

This commit is contained in:
Pragmatic Software 2015-01-18 18:52:42 -08:00
parent a0f0249c8f
commit 540243764f

View File

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