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