As suggested by Anton Tagunov, eq and cmp now obey the

encoding pragma (by remapping their byte argument if the
other argument is in Unicode).  Also fix a bug found by
Anton where ord undef under the encoding pragma would barf.
([ID 20020307.009] A null pointer dereference with 'use encoding')
Finally, use the nicer form of sv_recode_to_utf8.

p4raw-id: //depot/perl@15085

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index 42588ff59d..a1ab06058e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3285,7 +3285,7 @@ tryagain:
 	 if (RExC_utf8)
 	      SvUTF8_on(sv);
 	 if (sv_utf8_downgrade(sv, TRUE)) {
-	      char *s       = Perl_sv_recode_to_utf8(aTHX_ sv, PL_encoding);
+	      char *s       = sv_recode_to_utf8(sv, PL_encoding);
 	      STRLEN newlen = SvCUR(sv);
 	 
 	      if (!SIZE_ONLY) {