Lowercase language option

This commit is contained in:
Pragmatic Software 2015-01-17 07:00:47 -08:00
parent 728015672d
commit ae957c0314
1 changed files with 2 additions and 2 deletions

View File

@ -23,10 +23,10 @@ if(not defined $sock) {
my $nick = shift @ARGV;
my $code = join ' ', @ARGV;
my $lang = "C11";
my $lang = "c11";
if($code =~ s/-lang=([^ ]+)//) {
$lang = uc $1;
$lang = lc $1;
}
print $sock "compile:$nick:$lang\n";