diff options
| author | Karl Williamson <khw@cpan.org> | 2020-02-12 15:02:46 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-02-12 15:10:42 -0700 |
| commit | 666eb2cc60ebe0534a22dc16015848b0a98413ec (patch) | |
| tree | 2f295f50044c44b8a32157dac184643944b23109 /ext | |
| parent | 96d019622c8664693f6966a219cfdfd9c81ac025 (diff) | |
| download | perl-666eb2cc60ebe0534a22dc16015848b0a98413ec.tar.gz | |
Remove claimed support for mbstowcs, wcstombc
As noted in perldelta, these functions could not have ever worked, and
there is no demand for them, hence no reason to make them work.
This fixes GH #17388
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 18 | ||||
| -rw-r--r-- | ext/POSIX/lib/POSIX.pm | 2 | ||||
| -rw-r--r-- | ext/POSIX/lib/POSIX.pod | 8 |
3 files changed, 1 insertions, 27 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 03342c3ea4..c8d6e8e3f9 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1547,15 +1547,9 @@ END_EXTERN_C #define mblen(a,b) not_here("mblen") #endif #endif -#ifndef HAS_MBSTOWCS -#define mbstowcs(s, pwcs, n) not_here("mbstowcs") -#endif #ifndef HAS_MBTOWC #define mbtowc(pwc, s, n) not_here("mbtowc") #endif -#ifndef HAS_WCSTOMBS -#define wcstombs(s, pwcs, n) not_here("wcstombs") -#endif #ifndef HAS_WCTOMB #define wctomb(s, wchar) not_here("wctomb") #endif @@ -3375,12 +3369,6 @@ mblen(s, n) OUTPUT: RETVAL -size_t -mbstowcs(s, pwcs, n) - wchar_t * s - char * pwcs - size_t n - int mbtowc(pwc, s, n) wchar_t * pwc @@ -3403,12 +3391,6 @@ mbtowc(pwc, s, n) RETVAL int -wcstombs(s, pwcs, n) - char * s - wchar_t * pwcs - size_t n - -int wctomb(s, wchar) char * s wchar_t wchar diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm index 538f810d67..d44645a57b 100644 --- a/ext/POSIX/lib/POSIX.pm +++ b/ext/POSIX/lib/POSIX.pm @@ -4,7 +4,7 @@ use warnings; our ($AUTOLOAD, %SIGRT); -our $VERSION = '1.91'; +our $VERSION = '1.92'; require XSLoader; diff --git a/ext/POSIX/lib/POSIX.pod b/ext/POSIX/lib/POSIX.pod index 923198477d..78eb4f18e5 100644 --- a/ext/POSIX/lib/POSIX.pod +++ b/ext/POSIX/lib/POSIX.pod @@ -1077,10 +1077,6 @@ be a rather useless function. However, Perl supports Unicode, see L<perluniintro>. -=item C<mbstowcs> - -This is identical to the C function C<mbstowcs()>. - See L</mblen>. =item C<mbtowc> @@ -2114,10 +2110,6 @@ builtin C<waitpid()> function, see L<perlfunc/waitpid>. $pid = POSIX::waitpid( -1, POSIX::WNOHANG ); print "status = ", ($? / 256), "\n"; -=item C<wcstombs> - -This is identical to the C function C<wcstombs()>. - See L</mblen>. =item C<wctomb> |