X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ad3a8c6706bd3a6f37807bfeb97ae631d2828ec9..8c44bff1ac2926fc059ca84c916a04461ff5ad01:/perl.h

diff --git a/perl.h b/perl.h
index 8e48b6d..7e66b56 100644
--- a/perl.h
+++ b/perl.h
@@ -6008,6 +6008,8 @@ extern void moncontrol(int);
 
 #endif /* Include guard */
 
+#define CLEAR_ERRSV() STMT_START { sv_setpvn(ERRSV,"",0); if (SvMAGICAL(ERRSV)) { mg_free(ERRSV); } SvPOK_only(ERRSV); } STMT_END
+
 /*
  * Local variables:
  * c-indentation-style: bsd