From: Sven Schöling <s.schoeling@linet-services.de>
Date: Mon, 17 Sep 2012 15:35:09 +0000 (+0200)
Subject: SL::DBUpgrade bug fixes
X-Git-Tag: release-3.0.0beta1~232^2~3
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=592052f4b29bf95aae4435504558434133fea6bc;p=kivitendo-erp.git

SL::DBUpgrade bug fixes
---

diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm
index a74e8ae82..a39ef931b 100644
--- a/SL/DBUpgrade2.pm
+++ b/SL/DBUpgrade2.pm
@@ -163,7 +163,6 @@ sub process_query {
         if ($char eq $quote_chars[-1]) {
           pop(@quote_chars);
         } elsif (length $quote_chars[-1] > 1
-             &&  substr($quote_chars[-1], 0, 1) eq $char
              &&  substr($_, $i, length $quote_chars[-1]) eq $quote_chars[-1]) {
           $i   += length $quote_chars[-1] - 1;
           $char = $quote_chars[-1];
@@ -176,10 +175,10 @@ sub process_query {
         if (($char eq "'") || ($char eq "\"")) {
           push(@quote_chars, $char);
 
-        } elsif ($char eq '$'                                      # start of dollar quoting
-             && ($tag_end = index($_, '$', $i + 1)) > -1           # ends on same line
-             && (do { substr($_, $i + 1, $tag_end - $i - 1); 1 })  # extract tag
-             &&  $tag =~ /^ (?= [A-Za-z_] [A-Za-z0-9_]* | ) $/x) { # tag is identifier
+        } elsif ($char eq '$'                                            # start of dollar quoting
+             && ($tag_end  = index($_, '$', $i + 1)) > -1                # ends on same line
+             && (do { $tag = substr($_, $i + 1, $tag_end - $i - 1); 1 }) # extract tag
+             &&  $tag      =~ /^ (?= [A-Za-z_] [A-Za-z0-9_]* | ) $/x) {  # tag is identifier
           push @quote_chars, $char = '$' . $tag . '$';
           $i = $tag_end;
         } elsif ($char eq ";") {