This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Use Perl_croak_nocontext()
[perl5.git] / regexec.c
index 1aa0c47..e92e7a3 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -8762,8 +8762,7 @@ S_reghop3(U8 *s, SSize_t off, const U8* lim)
                 while (s > lim && UTF8_IS_CONTINUATION(*s))
                     s--;
                 if (! UTF8_IS_START(*s)) {
-                    dTHX;
-                    Perl_croak(aTHX_ "Malformed UTF-8 character (fatal)");
+                    Perl_croak_nocontext("Malformed UTF-8 character (fatal)");
                 }
            }
             /* XXX could check well-formedness here */
@@ -8790,8 +8789,7 @@ S_reghop4(U8 *s, SSize_t off, const U8* llim, const U8* rlim)
                 while (s > llim && UTF8_IS_CONTINUATION(*s))
                     s--;
                 if (! UTF8_IS_START(*s)) {
-                    dTHX;
-                    Perl_croak(aTHX_ "Malformed UTF-8 character (fatal)");
+                    Perl_croak_nocontext("Malformed UTF-8 character (fatal)");
                 }
             }
             /* XXX could check well-formedness here */
@@ -8823,8 +8821,7 @@ S_reghopmaybe3(U8* s, SSize_t off, const U8* lim)
                 while (s > lim && UTF8_IS_CONTINUATION(*s))
                     s--;
                 if (! UTF8_IS_START(*s)) {
-                    dTHX;
-                    Perl_croak(aTHX_ "Malformed UTF-8 character (fatal)");
+                    Perl_croak_nocontext("Malformed UTF-8 character (fatal)");
                 }
            }
             /* XXX could check well-formedness here */