In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/29b43da2723775cbc8877ecd48c8e5aae8f087bc?hp=2f0794f5776553bf2174172a75efcc3dedf4ecd5>

- Log -----------------------------------------------------------------
commit 29b43da2723775cbc8877ecd48c8e5aae8f087bc
Author: Karl Williamson <[email protected]>
Date:   Sun Oct 6 22:14:45 2013 -0600

    Remove PerlIO_sprintf() and PerlIO_vsprintf()
    
    http://markmail.org/message/m6bvkxvqnvjnfgyf
-----------------------------------------------------------------------

Summary of changes:
 perlio.c          | 30 ------------------------------
 pod/perldelta.pod |  5 +++++
 2 files changed, 5 insertions(+), 30 deletions(-)

diff --git a/perlio.c b/perlio.c
index 2591f89..279b529 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5183,36 +5183,6 @@ vfprintf(FILE *fd, char *pat, char *args)
 
 #endif
 
-#ifndef PerlIO_vsprintf
-int
-PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap)
-{
-    dTHX; 
-    const int val = my_vsnprintf(s, n > 0 ? n : 0, fmt, ap);
-    PERL_UNUSED_CONTEXT;
-
-#ifndef PERL_MY_VSNPRINTF_GUARDED
-    if (val < 0 || (n > 0 ? val >= n : 0)) {
-       Perl_croak(aTHX_ "panic: my_vsnprintf overflow in PerlIO_vsprintf\n");
-    }
-#endif
-    return val;
-}
-#endif
-
-#ifndef PerlIO_sprintf
-int
-PerlIO_sprintf(char *s, int n, const char *fmt, ...)
-{
-    va_list ap;
-    int result;
-    va_start(ap, fmt);
-    result = PerlIO_vsprintf(s, n, fmt, ap);
-    va_end(ap);
-    return result;
-}
-#endif
-
 /*
  * Local variables:
  * c-indentation-style: bsd
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 1da12d8..9c8531b 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -78,6 +78,11 @@ XXX For a release on a stable branch, this section aspires 
to be:
 
 [ List each incompatible change as a =head2 entry ]
 
+=head2 Functions C<PerlIO_vsprintf> and C<PerlIO_sprintf> have been removed
+
+These two functions, undocumented, unused in CPAN, and problematic have
+been removed.
+
 =head1 Deprecations
 
 XXX Any deprecated features, syntax, modules etc. should be listed here.

--
Perl5 Master Repository

Reply via email to