From 887edd8b53b1bdd9bf8ab8d75a7d4faa4779142b Mon Sep 17 00:00:00 2001
From: Peter Melnichenko <mpeterval@gmail.com>
Date: Wed, 2 Nov 2016 12:53:59 +0300
Subject: Fix persist for multiline strings ending with closing bracket prefix

---
 src/luarocks/persist.lua | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/luarocks/persist.lua b/src/luarocks/persist.lua
index c2adb570..636de260 100644
--- a/src/luarocks/persist.lua
+++ b/src/luarocks/persist.lua
@@ -98,7 +98,8 @@ local function write_value(out, v, level, sub_order)
       if v:match("[\r\n]") then
          local open, close = "[[", "]]"
          local equals = 0
-         while v:find(close, 1, true) do
+         local v_with_bracket = v.."]"
+         while v_with_bracket:find(close, 1, true) do
             equals = equals + 1
             local eqs = ("="):rep(equals)
             open, close = "["..eqs.."[", "]"..eqs.."]"
-- 
cgit v1.2.3-55-g6feb