This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(toke|regcomp).c: Use common fcn to handle \0 problems
[perl5.git] / dquote_inline.h
index f0ce9d6..59612ac 100644 (file)
@@ -33,35 +33,4 @@ S_regcurly(const char *s)
     return *s == '}';
 }
 
-/* This is inline not for speed, but because it is so tiny */
-
-PERL_STATIC_INLINE char*
-S_form_short_octal_warning(pTHX_
-                           const char * const s, /* Points to first non-octal */
-                           const STRLEN len      /* Length of octals string, so
-                                                    (s-len) points to first
-                                                    octal */
-)
-{
-    /* Return a character string consisting of a warning message for when a
-     * string constant in octal is weird, like "\078".  */
-
-    const char * sans_leading_zeros = s - len;
-
-    PERL_ARGS_ASSERT_FORM_SHORT_OCTAL_WARNING;
-
-    assert(*s == '8' || *s == '9');
-
-    /* Remove the leading zeros, retaining one zero so won't be zero length */
-    while (*sans_leading_zeros == '0') sans_leading_zeros++;
-    if (sans_leading_zeros == s) {
-        sans_leading_zeros--;
-    }
-
-    return Perl_form(aTHX_
-                     "'%.*s' resolved to '\\o{%.*s}%c'",
-                     (int) (len + 2), s - len - 1,
-                     (int) (s - sans_leading_zeros), sans_leading_zeros,
-                     *s);
-}
 #endif  /* PERL_DQUOTE_INLINE_H_ */