mirror of https://github.com/pragma-/pbot.git
Lowercase language option
This commit is contained in:
parent
728015672d
commit
ae957c0314
|
@ -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";
|
||||
|
|
Loading…
Reference in New Issue