[perl #40427] Segfault in pack

[perl5.git] / XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 51112a9..de5d33b 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -365,7 +365,6 @@ Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
             if (name[7] == 's'){                                \
                 arg = sv_2mortal(arg);                          \
             }                                                   \
-            SvOKp(arg);                                         \
        } } STMT_END                                                     
 
 #if 1          /* for compatibility */