From 12679ab7d3c2a210f4123163671b532b8b55d5f9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 15 Mar 2024 03:06:35 +0000 Subject: CTAN sync 202403150306 --- systems/texlive/tlnet/tlpkg/tlperl/lib/Net/protoent.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Net/protoent.pm') 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}"; -- cgit v1.2.3