GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-23 11:12:42 +01:00
Code Issues Projects Releases Wiki Activity

compiler_vm: fix \n after #include directives

Browse Source
This commit is contained in:
Pragmatic Software 2012-09-03 07:02:17 +00:00
parent a4cf4136ee
commit 7ed26f928e
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ use warnings;
# These are set automatically by the build/commit script # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 380, BUILD_REVISION => 381,
BUILD_DATE => "2012-08-31", BUILD_DATE => "2012-09-02",
}; };
1; 1;

3
modules/compiler_vm/compiler_vm_client.pl
View File

@ -604,7 +604,7 @@ use constant {
my $state = NORMAL; my $state = NORMAL;
my $escaped = 0; my $escaped = 0;
while($code =~ m/(.)/g) { while($code =~ m/(.)/gs) {
my $ch = $1; my $ch = $1;
given ($ch) { given ($ch) {
@ -865,6 +865,7 @@ if($output =~ m/^\s*$/) {
$output =~ s/, '\\(\d{3})' <repeats \d+ times>\s*//g; $output =~ s/, '\\(\d{3})' <repeats \d+ times>\s*//g;
$output =~ s/(\\000)+/\\0/g; $output =~ s/(\\000)+/\\0/g;
$output =~ s/\\0[^">']+/\\0/g; $output =~ s/\\0[^">']+/\\0/g;
$output =~ s/= (\d+) '\\0'/= $1/g;
$output =~ s/\\0"/"/g; $output =~ s/\\0"/"/g;
$output =~ s/"\\0/"/g; $output =~ s/"\\0/"/g;
$output =~ s/\.\.\.>/>/g; $output =~ s/\.\.\.>/>/g;