GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

compiler: Lowercase language

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