diff options
| author | Elvin Aslanov <rwp.primary@gmail.com> | 2022-09-02 18:34:41 +0400 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-09-05 13:36:33 -0600 |
| commit | 49344557595c1f5a62ef71584bae646ab4f3406b (patch) | |
| tree | dd0c25a16304045c32be3c33b95902afc1db4dbd /lib | |
| parent | ebf896f437d81d28bca4f476209549776f7b40cc (diff) | |
| download | perl-49344557595c1f5a62ef71584bae646ab4f3406b.tar.gz | |
Update servent.pm
Add `my` to synopsis.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/servent.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/servent.pm b/lib/Net/servent.pm index a3b2bad2c2..3aa8389f99 100644 --- a/lib/Net/servent.pm +++ b/lib/Net/servent.pm @@ -2,7 +2,7 @@ package Net::servent; use strict; use 5.006_001; -our $VERSION = '1.02'; +our $VERSION = '1.03'; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); our ( $s_name, @s_aliases, $s_port, $s_proto ); BEGIN { @@ -53,7 +53,7 @@ Net::servent - by-name interface to Perl's built-in getserv*() functions =head1 SYNOPSIS use Net::servent; - $s = getservbyname(shift || 'ftp') || die "no service"; + my $s = getservbyname(shift || 'ftp') || die "no service"; printf "port for %s is %s, aliases are %s\n", $s->name, $s->port, "@{$s->aliases}"; |