This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix RT #70862 by converting ERRSV to GvSVn() to ensure a non-NULL GvSV().
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index bf49279..2f02ba4 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1310,7 +1310,7 @@ EXTERN_C char *crypt(const char *, const char *);
 #   define SS_NORMAL           0
 #endif
 
 #   define SS_NORMAL           0
 #endif
 
-#define ERRSV GvSV(PL_errgv)
+#define ERRSV GvSVn(PL_errgv)
 #ifdef PERL_CORE
 # define DEFSV (0 + GvSVn(PL_defgv))
 #else
 #ifdef PERL_CORE
 # define DEFSV (0 + GvSVn(PL_defgv))
 #else