summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-09-20 03:06:10 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-09-20 03:06:10 +0000
commit5a844595b9262407e093364ec4d29a22962723f0 (patch)
tree26cc1f15a25dbb3a9f2a698c89b85b9c7c37fd0e /objXSUB.h
parent371b7e1ad2e46c79c7794d9b0f41b49157e7653c (diff)
downloadperl-5a844595b9262407e093364ec4d29a22962723f0.tar.gz
queue errors due to strictures rather than printing them as
warnings; symbols that violate strictures do *not* end up in the symbol table anyway, making multiple evals of the same piece of code produce the same errors; errors indicate all locations of a global symbol rather than just the first one; these changes make compile-time failures within evals reliably visible via the return value or contents of $@, and trappable using __DIE__ hooks p4raw-id: //depot/perl@4197
Diffstat (limited to 'objXSUB.h')
-rw-r--r--objXSUB.h14
1 files changed, 14 insertions, 0 deletions
diff --git a/objXSUB.h b/objXSUB.h
index 5da23fe984..66141626da 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -580,6 +580,8 @@
#define PL_efloatbuf (*Perl_Tefloatbuf_ptr(aTHXo))
#undef PL_efloatsize
#define PL_efloatsize (*Perl_Tefloatsize_ptr(aTHXo))
+#undef PL_errors
+#define PL_errors (*Perl_Terrors_ptr(aTHXo))
#undef PL_extralen
#define PL_extralen (*Perl_Textralen_ptr(aTHXo))
#undef PL_firstgv
@@ -1004,6 +1006,10 @@
#define Perl_form_nocontext pPerl->Perl_form_nocontext
#undef form_nocontext
#define form_nocontext Perl_form_nocontext
+#undef Perl_mess_nocontext
+#define Perl_mess_nocontext pPerl->Perl_mess_nocontext
+#undef mess_nocontext
+#define mess_nocontext Perl_mess_nocontext
#undef Perl_warn_nocontext
#define Perl_warn_nocontext pPerl->Perl_warn_nocontext
#undef warn_nocontext
@@ -2015,6 +2021,14 @@
#define Perl_mess pPerl->Perl_mess
#undef mess
#define mess Perl_mess
+#undef Perl_vmess
+#define Perl_vmess pPerl->Perl_vmess
+#undef vmess
+#define vmess Perl_vmess
+#undef Perl_qerror
+#define Perl_qerror pPerl->Perl_qerror
+#undef qerror
+#define qerror Perl_qerror
#undef Perl_mg_clear
#define Perl_mg_clear pPerl->Perl_mg_clear
#undef mg_clear