Add the encoding pragma to control the "upgrade"

from the native eight bit data to Unicode.

TODO: \x.. and \0... literals.  \N{}.  chr()? ord()?

p4raw-id: //depot/perl@12750

1 files changed, 2 insertions, 0 deletions

diff --git a/perlapi.h b/perlapi.h
index 2811a44650..0592374d1a 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -199,6 +199,8 @@ END_EXTERN_C
 #define PL_e_script		(*Perl_Ie_script_ptr(aTHX))
 #undef  PL_egid
 #define PL_egid			(*Perl_Iegid_ptr(aTHX))
+#undef  PL_encoding
+#define PL_encoding		(*Perl_Iencoding_ptr(aTHX))
 #undef  PL_endav
 #define PL_endav		(*Perl_Iendav_ptr(aTHX))
 #undef  PL_envgv