diff options
| author | Karl Williamson <khw@cpan.org> | 2022-08-15 13:28:45 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-08-18 10:13:58 -0600 |
| commit | d718eb9f93b5ceaaf44e56064f201eb1dbd7ae33 (patch) | |
| tree | 54b98ead4e22573cadda7c278d287e028fd795f3 /t/porting | |
| parent | c35da66beed652bff7394008fbef5d512304a5cc (diff) | |
| download | perl-d718eb9f93b5ceaaf44e56064f201eb1dbd7ae33.tar.gz | |
diag.t: Collapse "Function not implemented" entries
These are clear enough without explanation in perldiag. There's a bunch
of them that can be represented by just one.
Diffstat (limited to 't/porting')
| -rw-r--r-- | t/porting/diag.t | 30 |
1 files changed, 7 insertions, 23 deletions
diff --git a/t/porting/diag.t b/t/porting/diag.t index f61f8f78b6..57ab4d9ea5 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -243,6 +243,12 @@ sub standardize { elsif ($name =~ m/^(panic|Usage): /) { $name = "$1: \%s"; } + else { + $name =~ s/ (*plb:^Function\ ") + (\w+) + (*pla:"\ not\ implemented\ in\ this\ version\ of\ perl\.) + /%s/gx; + } return $name; } @@ -569,29 +575,7 @@ fork() not implemented! YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET! FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP! free %s Free to wrong pool %p not %p -Function "endnetent" not implemented in this version of perl. -Function "endprotoent" not implemented in this version of perl. -Function "endservent" not implemented in this version of perl. -Function "getnetbyaddr" not implemented in this version of perl. -Function "getnetbyname" not implemented in this version of perl. -Function "getnetent" not implemented in this version of perl. -Function "getprotobyname" not implemented in this version of perl. -Function "getprotobynumber" not implemented in this version of perl. -Function "getprotoent" not implemented in this version of perl. -Function "getservbyport" not implemented in this version of perl. -Function "getservent" not implemented in this version of perl. -Function "getsockopt" not implemented in this version of perl. -Function "recvmsg" not implemented in this version of perl. -Function "sendmsg" not implemented in this version of perl. -Function "sethostent" not implemented in this version of perl. -Function "setnetent" not implemented in this version of perl. -Function "setprotoent" not implemented in this version of perl. -Function "setservent" not implemented in this version of perl. -Function "setsockopt" not implemented in this version of perl. -Function "tcdrain" not implemented in this version of perl. -Function "tcflow" not implemented in this version of perl. -Function "tcflush" not implemented in this version of perl. -Function "tcsendbreak" not implemented in this version of perl. +Function "%s" not implemented in this version of perl. get %s %p %p %p gethostent not implemented! getnetbyaddr not implemented! |