[perl5db] Refactored do {...}s into ifs.

[perl5.git] / util.c

diff --git a/util.c b/util.c
index 28a5ff4..b7403e8 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1625,9 +1625,9 @@ paths reduces CPU cache pressure.
 */
 
 void
-Perl_croak_no_modify(pTHX)
+Perl_croak_no_modify()
 {
-    Perl_croak(aTHX_ "%s", PL_no_modify);
+    Perl_croak_nocontext( "%s", PL_no_modify);
 }
 
 /*