projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Kontoauszug verbuchen - Punktesystem sichtbar machen
[kivitendo-erp.git]
/
SL
/
DBUpgrade2.pm
diff --git
a/SL/DBUpgrade2.pm
b/SL/DBUpgrade2.pm
index
01af8f6
..
f694b5a
100644
(file)
--- a/
SL/DBUpgrade2.pm
+++ b/
SL/DBUpgrade2.pm
@@
-147,9
+147,6
@@
sub process_query {
# Remove DOS and Unix style line endings.
chomp;
# Remove DOS and Unix style line endings.
chomp;
- # remove comments
- s/--.*$//;
-
for (my $i = 0; $i < length($_); $i++) {
my $char = substr($_, $i, 1);
for (my $i = 0; $i < length($_); $i++) {
my $char = substr($_, $i, 1);
@@
-176,6
+173,11
@@
sub process_query {
&& $tag =~ /^ (?= [A-Za-z_] [A-Za-z0-9_]* | ) $/x) { # tag is identifier
push @quote_chars, $char = '$' . $tag . '$';
$i = $tag_end;
&& $tag =~ /^ (?= [A-Za-z_] [A-Za-z0-9_]* | ) $/x) { # tag is identifier
push @quote_chars, $char = '$' . $tag . '$';
$i = $tag_end;
+ } elsif ($char eq "-") {
+ if ( substr($_, $i+1, 1) eq "-") {
+ # found a comment outside quote
+ last;
+ }
} elsif ($char eq ";") {
# Query is complete. Send it.
} elsif ($char eq ";") {
# Query is complete. Send it.