1 files changed, 2 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index 8e48b6d43a..aa3df96fd7 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