This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.[ch]: switch to using SvPVCLEAR() and string constant friendly macros
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index 8444bc0..a843a60 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1277,7 +1277,7 @@ EXTERN_C char *crypt(const char *, const char *);
        *svp = newSVpvs("");                                            \
     } else {                                                           \
        SV *const errsv = *svp;                                         \
-       sv_setpvs(errsv, "");                                           \
+        SvPVCLEAR(errsv);                                                \
        SvPOK_only(errsv);                                              \
        if (SvMAGICAL(errsv)) {                                         \
            mg_free(errsv);                                             \