SQL-File-Parsing: Off-by-one in $$ ... $$-Syntax für stored procedures behoben
authorMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 8 Nov 2012 11:00:10 +0000 (12:00 +0100)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 8 Nov 2012 11:00:10 +0000 (12:00 +0100)
SL/DBUpgrade2.pm

index a39ef93..f0d88ff 100644 (file)
@@ -164,7 +164,7 @@ sub process_query {
           pop(@quote_chars);
         } elsif (length $quote_chars[-1] > 1
              &&  substr($_, $i, length $quote_chars[-1]) eq $quote_chars[-1]) {
-          $i   += length $quote_chars[-1] - 1;
+          $i   += length($quote_chars[-1]) - 1;
           $char = $quote_chars[-1];
           pop(@quote_chars);
         }