}
sub longjmp {
- unimpl "longjmp() is C-specific: use die instead";
+ unimpl "longjmp() is C-specific, use die instead";
}
sub setjmp {
- unimpl "setjmp() is C-specific: use eval {} instead";
+ unimpl "setjmp() is C-specific, use eval {} instead";
}
sub siglongjmp {
- unimpl "siglongjmp() is C-specific: use die instead";
+ unimpl "siglongjmp() is C-specific, use die instead";
}
sub sigsetjmp {
- unimpl "sigsetjmp() is C-specific: use eval {} instead";
+ unimpl "sigsetjmp() is C-specific, use eval {} instead";
}
sub kill {
}
sub fprintf {
- unimpl "fprintf() is C-specific--use printf instead";
+ unimpl "fprintf() is C-specific, use printf instead";
}
sub fputc {
- unimpl "fputc() is C-specific--use print instead";
+ unimpl "fputc() is C-specific, use print instead";
}
sub fputs {
- unimpl "fputs() is C-specific--use print instead";
+ unimpl "fputs() is C-specific, use print instead";
}
sub fread {
- unimpl "fread() is C-specific--use read instead";
+ unimpl "fread() is C-specific, use read instead";
}
sub freopen {
- unimpl "freopen() is C-specific--use open instead";
+ unimpl "freopen() is C-specific, use open instead";
}
sub fscanf {
- unimpl "fscanf() is C-specific--use <> and regular expressions instead";
+ unimpl "fscanf() is C-specific, use <> and regular expressions instead";
}
sub fseek {
}
sub fwrite {
- unimpl "fwrite() is C-specific--use print instead";
+ unimpl "fwrite() is C-specific, use print instead";
}
sub getc {
}
sub putc {
- unimpl "putc() is C-specific--use print instead";
+ unimpl "putc() is C-specific, use print instead";
}
sub putchar {
- unimpl "putchar() is C-specific--use print instead";
+ unimpl "putchar() is C-specific, use print instead";
}
sub puts {
- unimpl "puts() is C-specific--use print instead";
+ unimpl "puts() is C-specific, use print instead";
}
sub remove {
}
sub scanf {
- unimpl "scanf() is C-specific--use <> and regular expressions instead";
+ unimpl "scanf() is C-specific, use <> and regular expressions instead";
}
sub sprintf {
}
sub sscanf {
- unimpl "sscanf() is C-specific--use regular expressions instead";
+ unimpl "sscanf() is C-specific, use regular expressions instead";
}
sub tmpfile {
}
sub vfprintf {
- unimpl "vfprintf() is C-specific";
+ unimpl "vfprintf() is C-specific, stopped";
}
sub vprintf {
- unimpl "vprintf() is C-specific";
+ unimpl "vprintf() is C-specific, stopped";
}
sub vsprintf {
- unimpl "vsprintf() is C-specific";
+ unimpl "vsprintf() is C-specific, stopped";
}
sub abs {
}
sub atexit {
- unimpl "atexit() is C-specific: use END {} instead";
+ unimpl "atexit() is C-specific, use END {} instead";
}
sub atof {
}
sub bsearch {
- unimpl "bsearch() not supplied";
+ unimpl "bsearch() is not supplied";
}
sub calloc {
}
sub srand {
- unimpl "srand()";
+ unimpl "srand() is not supplied, refer to Perl's srand documentation";
}
sub system {
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'],
[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'],
[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'],
[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/