mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-23 11:12:42 +01:00
compiler_vm: fix \n after #include directives
This commit is contained in:
parent
a4cf4136ee
commit
7ed26f928e
@ -13,8 +13,8 @@ use warnings;
|
||||
# These are set automatically by the build/commit script
|
||||
use constant {
|
||||
BUILD_NAME => "PBot",
|
||||
BUILD_REVISION => 380,
|
||||
BUILD_DATE => "2012-08-31",
|
||||
BUILD_REVISION => 381,
|
||||
BUILD_DATE => "2012-09-02",
|
||||
};
|
||||
|
||||
1;
|
||||
|
@ -604,7 +604,7 @@ use constant {
|
||||
my $state = NORMAL;
|
||||
my $escaped = 0;
|
||||
|
||||
while($code =~ m/(.)/g) {
|
||||
while($code =~ m/(.)/gs) {
|
||||
my $ch = $1;
|
||||
|
||||
given ($ch) {
|
||||
@ -865,6 +865,7 @@ if($output =~ m/^\s*$/) {
|
||||
$output =~ s/, '\\(\d{3})' <repeats \d+ times>\s*//g;
|
||||
$output =~ s/(\\000)+/\\0/g;
|
||||
$output =~ s/\\0[^">']+/\\0/g;
|
||||
$output =~ s/= (\d+) '\\0'/= $1/g;
|
||||
$output =~ s/\\0"/"/g;
|
||||
$output =~ s/"\\0/"/g;
|
||||
$output =~ s/\.\.\.>/>/g;
|
||||
|
Loading…
Reference in New Issue
Block a user