X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=7e66b56c65a3c5771813c5a7553d4eee096f6967;hb=e27835eefa408ae52d4ae22eec67eea282a87949;hp=aa3df96fd7d18996d7857f66f85486c94e14ef0b;hpb=8433848b134d4e61d5135fd8a70d8106025ac6a6;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.h b/perl.h
index aa3df96..7e66b56 100644
--- a/perl.h
+++ b/perl.h
@@ -6008,7 +6008,7 @@ 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
+#define CLEAR_ERRSV() STMT_START { sv_setpvn(ERRSV,"",0); if (SvMAGICAL(ERRSV)) { mg_free(ERRSV); } SvPOK_only(ERRSV); } STMT_END
 
 /*
  * Local variables: