From: Vincent Pit <vpit@cpan.org>
Date: Mon, 8 Jul 2019 10:20:56 +0000 (+0200)
Subject: Fix breakage caused by core change f14cf363
X-Git-Tag: rt127118^0
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=478dea6c7c37e65412e7b60c30c34c69c7ca9085

Fix breakage caused by core change f14cf363

This fixes [RT #127118].
---

diff --git a/indirect.xs b/indirect.xs
index ee702c6..284217c 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -261,7 +261,8 @@ static void indirect_map_store(pTHX_ const OP *o, STRLEN pos, SV *sv, line_t lin
   XSH_LOCAL_REALLOC(oi->buf, oi->size, len, char);
   oi->size = len;
  }
- Copy(s, oi->buf, len, char);
+ if (oi->buf)
+  Copy(s, oi->buf, len, char);
 
  oi->len  = len;
  oi->pos  = pos;