diff options
Diffstat (limited to 'ext/POSIX/t/unimplemented.t')
| -rw-r--r-- | ext/POSIX/t/unimplemented.t | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/ext/POSIX/t/unimplemented.t b/ext/POSIX/t/unimplemented.t index eeb0d1bb3c..6ed6205045 100644 --- a/ext/POSIX/t/unimplemented.t +++ b/ext/POSIX/t/unimplemented.t @@ -9,11 +9,11 @@ plan(skip_all => "POSIX is unavailable") require POSIX; -foreach ([atexit => ' is C-specific: use END {} instead'], +foreach ([atexit => ' is C-specific, use END {} instead'], [atof => ' is C-specific, stopped'], [atoi => ' is C-specific, stopped'], [atol => ' is C-specific, stopped'], - [bsearch => ' not supplied'], + [bsearch => ' is not supplied'], [calloc => ' is C-specific, stopped'], [clearerr => \'IO::Handle::clearerr'], [div => ' is C-specific, use /, % and int instead'], @@ -33,21 +33,21 @@ foreach ([atexit => ' is C-specific: use END {} instead'], [fgets => \'IO::Handle::gets'], [fileno => \'IO::Handle::fileno'], [fopen => \'IO::File::open'], - [fprintf => ' is C-specific--use printf instead'], - [fputc => ' is C-specific--use print instead'], - [fputs => ' is C-specific--use print instead'], - [fread => ' is C-specific--use read instead'], + [fprintf => ' is C-specific, use printf instead'], + [fputc => ' is C-specific, use print instead'], + [fputs => ' is C-specific, use print instead'], + [fread => ' is C-specific, use read instead'], [free => ' is C-specific, stopped'], - [freopen => ' is C-specific--use open instead'], - [fscanf => ' is C-specific--use <> and regular expressions instead'], + [freopen => ' is C-specific, use open instead'], + [fscanf => ' is C-specific, use <> and regular expressions instead'], [fseek => \'IO::Seekable::seek'], [fsetpos => \'IO::Seekable::setpos'], [fsync => \'IO::Handle::sync'], [ftell => \'IO::Seekable::tell'], - [fwrite => ' is C-specific--use print instead'], + [fwrite => ' is C-specific, use print instead'], [labs => ' is C-specific, use abs instead'], [ldiv => ' is C-specific, use /, % and int instead'], - [longjmp => ' is C-specific: use die instead'], + [longjmp => ' is C-specific, use die instead'], [malloc => ' is C-specific, stopped'], [memchr => ' is C-specific, use index() instead'], [memcmp => ' is C-specific, use eq instead'], @@ -55,20 +55,20 @@ foreach ([atexit => ' is C-specific: use END {} instead'], [memmove => ' is C-specific, use = instead'], [memset => ' is C-specific, use x instead'], [offsetof => ' is C-specific, stopped'], - [putc => ' is C-specific--use print instead'], - [putchar => ' is C-specific--use print instead'], - [puts => ' is C-specific--use print instead'], + [putc => ' is C-specific, use print instead'], + [putchar => ' is C-specific, use print instead'], + [puts => ' is C-specific, use print instead'], [qsort => ' is C-specific, use sort instead'], [rand => ' is non-portable, use Perl\'s rand instead'], [realloc => ' is C-specific, stopped'], - [scanf => ' is C-specific--use <> and regular expressions instead'], + [scanf => ' is C-specific, use <> and regular expressions instead'], [setbuf => \'IO::Handle::setbuf'], - [setjmp => ' is C-specific: use eval {} instead'], + [setjmp => ' is C-specific, use eval {} instead'], [setvbuf => \'IO::Handle::setvbuf'], - [siglongjmp => ' is C-specific: use die instead'], - [sigsetjmp => ' is C-specific: use eval {} instead'], - [srand => ''], - [sscanf => ' is C-specific--use regular expressions instead'], + [siglongjmp => ' is C-specific, use die instead'], + [sigsetjmp => ' is C-specific, use eval {} instead'], + [srand => ' is not supplied, refer to Perl\'s srand documentation'], + [sscanf => ' is C-specific, use regular expressions instead'], [strcat => ' is C-specific, use .= instead'], [strchr => ' is C-specific, use index() instead'], [strcmp => ' is C-specific, use eq instead'], @@ -84,9 +84,9 @@ foreach ([atexit => ' is C-specific: use END {} instead'], [strtok => ' is C-specific, stopped'], [tmpfile => \'IO::File::new_tmpfile'], [ungetc => \'IO::Handle::ungetc'], - [vfprintf => ' is C-specific'], - [vprintf => ' is C-specific'], - [vsprintf => ' is C-specific'], + [vfprintf => ' is C-specific, stopped'], + [vprintf => ' is C-specific, stopped'], + [vsprintf => ' is C-specific, stopped'], ) { my ($func, $action) = @$_; my $expect = ref $action ? qr/Use method $$action\(\) instead at \(eval/ |