save_hints is a mathom.

p4raw-id: //depot/perl@25900

diff --git a/mathoms.c b/mathoms.c
index 6d03a6c..9206525 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -741,6 +741,13 @@ Perl_init_i18nl14n(pTHX_ int printwarn)
     return init_i18nl10n(printwarn);
 }
 
+/* XXX kept for BINCOMPAT only */
+void
+Perl_save_hints(pTHX)
+{
+    Perl_croak(aTHX_ "internal error: obsolete function save_hints() called");
+}
+
 /*
  * Local variables:
  * c-indentation-style: bsd

diff --git a/op.c b/op.c
index 4ec189e..235b6a1 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1871,13 +1871,6 @@ Perl_scope(pTHX_ OP *o)
     return o;
 }
 
-/* XXX kept for BINCOMPAT only */
-void
-Perl_save_hints(pTHX)
-{
-    Perl_croak(aTHX_ "internal error: obsolete function save_hints() called");
-}
-
 int
 Perl_block_start(pTHX_ int full)
 {