From 54a11a5f75a4b1a330da1e84bc0bfa809cb85a86 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Tue, 11 Nov 2003 20:44:32 +0000
Subject: [PATCH] *** empty log message ***

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5300 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/perl5/perlrun.swg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SWIG/Lib/perl5/perlrun.swg b/SWIG/Lib/perl5/perlrun.swg
index 983a762ba..8f0f2e718 100644
--- a/SWIG/Lib/perl5/perlrun.swg
+++ b/SWIG/Lib/perl5/perlrun.swg
@@ -283,7 +283,7 @@ SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT
       hv=GvHVn(gv);
       hv_store_ent(hv, obj, newSViv(1), 0);
     }
-    sv_magic((SV *)hash, (SV *)obj, PERL_MAGIC_tied, Nullch, 0);
+    sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
     SvREFCNT_dec(obj);
     self=newRV_noinc((SV *)hash);
     sv_setsv(sv, self);