From 3e91ae7db7829f1a45ffd443514f5f19a14e7cf8 Mon Sep 17 00:00:00 2001
From: Robert Stone <talby@trap.mtview.ca.us>
Date: Tue, 12 Nov 2013 18:43:56 -0800
Subject: [PATCH] mitigate ConvertPtr director cost when directors are not
 enabled

---
 Lib/perl5/perlrun.swg | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Lib/perl5/perlrun.swg b/Lib/perl5/perlrun.swg
index 4e31c4754..876fae268 100644
--- a/Lib/perl5/perlrun.swg
+++ b/Lib/perl5/perlrun.swg
@@ -289,7 +289,11 @@ SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_
     /* Now see if the types match */
     char *_c = HvNAME(SvSTASH(SvRV(sv)));
     tc = SWIG_TypeProxyCheck(_c,_t);
+#ifdef SWIG_DIRECTORS
     if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
+#else
+    if (!tc) {
+#endif
       return SWIG_ERROR;
     }
     {