svn commit: r1506291 - /subversion/trunk/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c

[rhuijben]

Author: rhuijben
Date: Tue Jul 23 21:26:23 2013
New Revision: 1506291

URL: http://svn.apache.org/r1506291
Log:
* subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
  Following up on recent changes. Add some unneeded "()" output and suppress
  more 'leaked error' crashes, because some errors were allocated from a
  different dll.

Modified:
    
subversion/trunk/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c

Modified: 
subversion/trunk/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
URL: 
http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c?rev=1506291&r1=1506290&r2=1506291&view=diff
==============================================================================
--- 
subversion/trunk/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c 
(original)
+++ 
subversion/trunk/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c 
Tue Jul 23 21:26:23 2013
@@ -1389,7 +1389,7 @@ svn_error_t *svn_swig_pl_get_commit_log_
     SV *tmp_file_sv;
     SV *commit_items_sv;
 
-    if (!SvOK((SV *)baton)) {
+    if (!SvOK((SV *)baton) || SvTYPE(SvRV(prompt_func)) != SVt_PVCV) {
       *log_msg = apr_pstrdup(pool, "");
         *tmp_file = NULL;
         return SVN_NO_ERROR;