diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Net/protoent.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/Net/protoent.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Net/protoent.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Net/protoent.pm index cef20fbd0b..18dc777d0f 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Net/protoent.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/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}"; |