From c4ee17ee3ad87b04d524c1ee6f44b32412c71ee6 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 8 Nov 2012 12:00:10 +0100
Subject: [PATCH] =?utf8?q?SQL-File-Parsing:=20Off-by-one=20in=20$$=20...?=
 =?utf8?q?=20$$-Syntax=20f=C3=BCr=20stored=20procedures=20behoben?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/DBUpgrade2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm
index a39ef931b..f0d88ffa1 100644
--- a/SL/DBUpgrade2.pm
+++ b/SL/DBUpgrade2.pm
@@ -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);
         }
-- 
2.20.1