diff options
author | Elvin Aslanov <rwp.primary@gmail.com> | 2022-09-02 18:34:07 +0400 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-09-05 13:35:49 -0600 |
commit | ebf896f437d81d28bca4f476209549776f7b40cc (patch) | |
tree | d5639472534c0b73e01e2bba3bf7f8f1615068d6 /lib | |
parent | d10b9fb6cce977dad7ccd637c5e6e31f682eaa52 (diff) | |
download | perl-ebf896f437d81d28bca4f476209549776f7b40cc.tar.gz |
Update protoent.pm
Add `my` to synopsis.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Net/protoent.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/protoent.pm b/lib/Net/protoent.pm index cef20fbd0b..18dc777d0f 100644 --- a/lib/Net/protoent.pm +++ b/lib/Net/protoent.pm @@ -2,7 +2,7 @@ package Net::protoent; use strict; use 5.006_001; -our $VERSION = '1.01'; +our $VERSION = '1.02'; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); our ( $p_name, @p_aliases, $p_proto ); BEGIN { @@ -51,7 +51,7 @@ Net::protoent - by-name interface to Perl's built-in getproto*() functions =head1 SYNOPSIS use Net::protoent; - $p = getprotobyname(shift || 'tcp') || die "no proto"; + my $p = getprotobyname(shift || 'tcp') || die "no proto"; printf "proto for %s is %d, aliases are %s\n", $p->name, $p->proto, "@{$p->aliases}"; |