summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Net/protoent.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Net/protoent.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Net/protoent.pm4
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}";