From b9e2571f45fe236eacc2249b4695e54e8e9a517a Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Fri, 24 May 2013 23:04:05 +1000
Subject: [PATCH] [rt #69243] use names for i_tags_addn() instead of ST(n) and
 handle magic

The code checked SvOK() without SvGETMAGIC()
---
 Imager.xs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Imager.xs b/Imager.xs
index 53e91852..3dc6d0b2 100644
--- a/Imager.xs
+++ b/Imager.xs
@@ -3630,16 +3630,18 @@ i_img_to_drgb(im)
        Imager::ImgRaw im
 
 undef_int
-i_tags_addn(im, name, code, idata)
+i_tags_addn(im, name_sv, code, idata)
         Imager::ImgRaw im
+	SV *name_sv
         int     code
         int     idata
       PREINIT:
         char *name;
         STRLEN len;
       CODE:
-        if (SvOK(ST(1)))
-          name = SvPV(ST(1), len);
+        SvGETMAGIC(name_sv);
+        if (SvOK(name_sv))
+          name = SvPV_nomg(name_sv, len);
         else
           name = NULL;
         RETVAL = i_tags_addn(&im->tags, name, code, idata);
-- 
2.39.5