[perl #57646] Weird non-equivalence between $::{'a'} = sub {} and *::a = sub {}

[perl5.git] / perl.h

diff --git a/perl.h b/perl.h
index 8e48b6d..7e66b56 100644 (file)
--- 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