GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-05-13 18:07:27 +02:00
Code Issues Projects Releases Wiki Activity

compiler: Lowercase language

Browse Source
This commit is contained in:
Pragmatic Software 2015-01-23 13:46:18 -08:00
parent ac128312ac
commit 3010cf1d8d
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
modules/compiler_block.pl
View File

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

4
modules/compiler_client.pl
View File

@ -24,10 +24,10 @@ my $nick = shift @ARGV;
my $channel = shift @ARGV; my $channel = 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:$channel:$lang\n"; print $sock "compile:$nick:$channel:$lang\n";