diff --git a/swig/interfaces/Perl/callback.i b/swig/interfaces/Perl/callback.i
index 68e673154b3054787c5ff7dd78424c28c9adce96..969753043f0bc3e01b605592631152fd925878b9 100644
--- a/swig/interfaces/Perl/callback.i
+++ b/swig/interfaces/Perl/callback.i
@@ -23,6 +23,7 @@
  * PerlCallbackHandler* - this is broken and useless
  */
 
+/*
 %typemap(out) XERCES_CPP_NAMESPACE::PerlCallbackHandler * = SWIGTYPE *DYNAMIC;
 
 DYNAMIC_CAST(SWIGTYPE_p_PerlCallbackHandler, PerlCallbackHandler_dynamic_cast);
@@ -57,4 +58,5 @@ PerlCallbackHandler_dynamic_cast(void **ptr) {
    return NULL;
 }
 
-%}
\ No newline at end of file
+%}
+*/
\ No newline at end of file