diff options
Diffstat (limited to 'contrib/perl5/lib/Net/protoent.pm')
| -rw-r--r-- | contrib/perl5/lib/Net/protoent.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/perl5/lib/Net/protoent.pm b/contrib/perl5/lib/Net/protoent.pm index 334af78..00a76af 100644 --- a/contrib/perl5/lib/Net/protoent.pm +++ b/contrib/perl5/lib/Net/protoent.pm @@ -6,7 +6,7 @@ our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); BEGIN { use Exporter (); @EXPORT = qw(getprotobyname getprotobynumber getprotoent); - @EXPORT_OK = qw( $p_name @p_aliases $p_proto ); + @EXPORT_OK = qw( $p_name @p_aliases $p_proto getproto ); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); } use vars @EXPORT_OK; @@ -78,6 +78,7 @@ regular array variables, so for example C<@{ $proto_obj-E<gt>aliases() The getproto() function is a simple front-end that forwards a numeric argument to getprotobyport(), and the rest to getprotobyname(). +This function is not exported by default. To access this functionality without the core overrides, pass the C<use> an empty import list, and then access |
