z.B. In dem script steht folgende Zeile
INSERT INTO partstypes values(0,'-------','-','f','f','f');
da aber in SL/DBUpgrade2.pm generell alle Zeilenteile die -- haben,
weggeworfen werden:
s/--.*$;
wird der Rest der Datei nach Quote Ende durchsucht und nix mehr passiert.
Also schön nach zwei hintereinanderkommenden -- suchen aber nicht innerhalb von Quotestrings
# Remove DOS and Unix style line endings.
chomp;
- # remove comments
- s/--.*$//;
-
for (my $i = 0; $i < length($_); $i++) {
my $char = substr($_, $i, 1);
&& $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.