Fix crash in sscanf in error handler (#7533)

diff --git a/ext/standard/scanf.c b/ext/standard/scanf.c
index 375e7682cf2cdfa39fb3da3d0312d3ba5ef084d6..38466e00070b067cf4d019dd5f001184aeec7b6a 100644 (file)
--- a/ext/standard/scanf.c
+++ b/ext/standard/scanf.c
@@ -1235,7 +1235,8 @@ inline void scan_set_error_return(int numVars,pval **return_value) {
                (*return_value)->type = IS_LONG;
                (*return_value)->value.lval = SCAN_ERROR_EOF;  /* EOF marker */
        } else {        
-               pval_destructor( *return_value );       
+         /* pval_destructor( *return_value ); */ 
+         /* convert_to_null calls destructor */
                convert_to_null( *return_value );
        }       
 }