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 $nick = shift @ARGV;
my $code = join ' ', @ARGV; my $code = join ' ', @ARGV;
my $lang = "C11"; my $lang = "c11";
if($code =~ s/-lang=([^ ]+)//) { if($code =~ s/-lang=([^ ]+)//) {
$lang = uc $1; $lang = lc $1;
} }
print $sock "compile:$nick:$lang\n"; print $sock "compile:$nick:$lang\n";