In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a65dc09f8c2a74df9479cbf2883f5f3778987217?hp=ff4e2b11ab19d0c806a3dc09308d1b393971b8aa>
- Log ----------------------------------------------------------------- commit a65dc09f8c2a74df9479cbf2883f5f3778987217 Author: Karl Williamson <[email protected]> Date: Mon Nov 14 22:52:45 2016 +0100 Finish removing POSIX deprecated fcns Commit 47ed9d9e89922a8e165d6dfc5737772cc5ee7a45 removed various deprecated functions, as scheduled in this release, but failed to include everything that should have gotten removed. Spotted by Abigail. ----------------------------------------------------------------------- Summary of changes: ext/POSIX/lib/POSIX.pm | 7 ++----- ext/POSIX/t/export.t | 5 ++--- ext/POSIX/t/usage.t | 2 +- ext/POSIX/t/wrappers.t | 3 --- 4 files changed, 5 insertions(+), 12 deletions(-) diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm index dcf028f..76d58c9 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.74'; +our $VERSION = '1.75'; require XSLoader; @@ -164,8 +164,6 @@ my %reimpl = ( strstr => 'big, little => CORE::index($_[0], $_[1])', system => 'command => CORE::system($_[0])', time => 'CORE::time', - tolower => 'string => lc($_[0])', - toupper => 'string => uc($_[0])', umask => 'mask => CORE::umask($_[0])', unlink => 'filename => CORE::unlink($_[0])', utime => 'filename, atime, mtime => CORE::utime($_[1], $_[2], $_[0])', @@ -254,8 +252,7 @@ my %default_export_tags = ( # cf. exports policy below assert_h => [qw(assert NDEBUG)], - ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower - isprint ispunct isspace isupper isxdigit tolower toupper)], + ctype_h => [], dirent_h => [], diff --git a/ext/POSIX/t/export.t b/ext/POSIX/t/export.t index ff852ed..5e07a13 100644 --- a/ext/POSIX/t/export.t +++ b/ext/POSIX/t/export.t @@ -90,8 +90,7 @@ my %expect = ( fgets floor fmod fopen fpathconf fprintf fputc fputs fread free freopen frexp fscanf fseek fsetpos fstat fsync ftell fwrite getchar getcwd getegid getenv geteuid getgid getgroups - getpid gets getuid isalnum isalpha isatty iscntrl isdigit - isgraph islower isprint ispunct isspace isupper isxdigit labs + getpid gets getuid isatty labs ldexp ldiv localeconv log10 longjmp lseek malloc mblen mbstowcs mbtowc memchr memcmp memcpy memmove memset mkfifo mktime modf offsetof pathconf pause perror pow putc putchar @@ -103,7 +102,7 @@ my %expect = ( strncpy strpbrk strrchr strspn strstr strtod strtok strtol strtoul strxfrm sysconf tan tanh tcdrain tcflow tcflush tcgetattr tcgetpgrp tcsendbreak tcsetattr tcsetpgrp tmpfile - tmpnam tolower toupper ttyname tzname tzset uname ungetc + tmpnam ttyname tzname tzset uname ungetc vfprintf vprintf vsprintf wcstombs wctomb ), # this stuff was added in 5.21 diff --git a/ext/POSIX/t/usage.t b/ext/POSIX/t/usage.t index 24e6a7e..4d900e7 100644 --- a/ext/POSIX/t/usage.t +++ b/ext/POSIX/t/usage.t @@ -18,7 +18,7 @@ for my $list ([qw(errno fork getchar getegid geteuid getgid getgroups getlogin [qw(abs alarm assert chdir closedir cos exit exp fabs fstat getc getenv getgrgid getgrnam getpwnam getpwuid gmtime isatty localtime log opendir raise readdir remove rewind rewinddir - rmdir sin sleep sqrt stat strerror system tolower toupper + rmdir sin sleep sqrt stat strerror system umask unlink)], [qw(atan2 chmod creat kill link mkdir pow rename strstr waitpid)], [qw(chown fcntl utime)]) { diff --git a/ext/POSIX/t/wrappers.t b/ext/POSIX/t/wrappers.t index 2be9660..e41b319 100644 --- a/ext/POSIX/t/wrappers.t +++ b/ext/POSIX/t/wrappers.t @@ -162,9 +162,6 @@ SKIP: { cmp_ok($present, '<=', $future, 'time'); } -is(POSIX::tolower('Perl Rules'), 'perl rules', 'tolower'); -is(POSIX::toupper('oi!'), 'OI!', 'toupper'); - is(-e NOT_HERE, undef, NOT_HERE . ' does not exist'); foreach ([undef, 0, 'chdir', NOT_HERE], -- Perl5 Master Repository
