Adding upstream version 4.22.0.upstream/4.22.0

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 125 insertions, 0 deletions

diff --git a/upstream/mageia-cauldron/man3pm/Net::servent.3pm b/upstream/mageia-cauldron/man3pm/Net::servent.3pm
new file mode 100644
index 00000000..3dacef73
--- /dev/null
+++ b/upstream/mageia-cauldron/man3pm/Net::servent.3pm
@@ -0,0 +1,125 @@
+.\" -*- mode: troff; coding: utf-8 -*-
+.\" Automatically generated by Pod::Man 5.01 (Pod::Simple 3.43)
+.\"
+.\" Standard preamble:
+.\" ========================================================================
+.de Sp \" Vertical space (when we can't use .PP)
+.if t .sp .5v
+.if n .sp
+..
+.de Vb \" Begin verbatim text
+.ft CW
+.nf
+.ne \\$1
+..
+.de Ve \" End verbatim text
+.ft R
+.fi
+..
+.\" \*(C` and \*(C' are quotes in nroff, nothing in troff, for use with C<>.
+.ie n \{\
+.    ds C` ""
+.    ds C' ""
+'br\}
+.el\{\
+.    ds C`
+.    ds C'
+'br\}
+.\"
+.\" Escape single quotes in literal strings from groff's Unicode transform.
+.ie \n(.g .ds Aq \(aq
+.el       .ds Aq '
+.\"
+.\" If the F register is >0, we'll generate index entries on stderr for
+.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
+.\" entries marked with X<> in POD.  Of course, you'll have to process the
+.\" output yourself in some meaningful fashion.
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
+..
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+.    if \nF \{\
+.        de IX
+.        tm Index:\\$1\t\\n%\t"\\$2"
+..
+.        if !\nF==2 \{\
+.            nr % 0
+.            nr F 2
+.        \}
+.    \}
+.\}
+.rr rF
+.\" ========================================================================
+.\"
+.IX Title "Net::servent 3pm"
+.TH Net::servent 3pm 2023-11-28 "perl v5.38.2" "Perl Programmers Reference Guide"
+.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
+.\" way too many mistakes in technical documents.
+.if n .ad l
+.nh
+.SH NAME
+Net::servent \- by\-name interface to Perl's built\-in getserv*() functions
+.SH SYNOPSIS
+.IX Header "SYNOPSIS"
+.Vb 4
+\& use Net::servent;
+\& my $s = getservbyname(shift || \*(Aqftp\*(Aq) || die "no service";
+\& printf "port for %s is %s, aliases are %s\en",
+\&    $s\->name, $s\->port, "@{$s\->aliases}";
+\&
+\& use Net::servent qw(:FIELDS);
+\& getservbyname(shift || \*(Aqftp\*(Aq) || die "no service";
+\& print "port for $s_name is $s_port, aliases are @s_aliases\en";
+.Ve
+.SH DESCRIPTION
+.IX Header "DESCRIPTION"
+This module's default exports override the core \fBgetservent()\fR,
+\&\fBgetservbyname()\fR, and
+\&\fBgetnetbyport()\fR functions, replacing them with versions that return
+"Net::servent" objects.  They take default second arguments of "tcp".  This object has methods that return the similarly
+named structure field name from the C's servent structure from \fInetdb.h\fR;
+namely name, aliases, port, and proto.  The aliases
+method returns an array reference, the rest scalars.
+.PP
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this still
+overrides your core functions.)  Access these fields as variables named
+with a preceding \f(CW\*(C`s_\*(C'\fR.  Thus, \f(CW\*(C`$serv_obj\->name()\*(C'\fR corresponds to
+\&\f(CW$s_name\fR if you import the fields.  Array references are available as
+regular array variables, so for example \f(CW\*(C`@{ $serv_obj\->aliases()}\*(C'\fR
+would be simply \f(CW@s_aliases\fR.
+.PP
+The \fBgetserv()\fR function is a simple front-end that forwards a numeric
+argument to \fBgetservbyport()\fR, and the rest to \fBgetservbyname()\fR.
+.PP
+To access this functionality without the core overrides,
+pass the \f(CW\*(C`use\*(C'\fR an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the \f(CW\*(C`CORE::\*(C'\fR pseudo-package.
+.SH EXAMPLES
+.IX Header "EXAMPLES"
+.Vb 1
+\& use Net::servent qw(:FIELDS);
+\&
+\& while (@ARGV) {
+\&     my ($service, $proto) = ((split m!/!, shift), \*(Aqtcp\*(Aq);
+\&     my $valet = getserv($service, $proto);
+\&     unless ($valet) {
+\&         warn "$0: No service: $service/$proto\en"
+\&         next;
+\&     }
+\&     printf "service $service/$proto is port %d\en", $valet\->port;
+\&     print "alias are @s_aliases\en" if @s_aliases;
+\& }
+.Ve
+.SH NOTE
+.IX Header "NOTE"
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+.SH AUTHOR
+.IX Header "AUTHOR"
+Tom Christiansen