diff options
| -rw-r--r-- | lib/Net/protoent.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Net/protoent.pm b/lib/Net/protoent.pm index 6aad940903..00a76aff07 100644 --- a/lib/Net/protoent.pm +++ b/lib/Net/protoent.pm @@ -5,8 +5,8 @@ use 5.005_64; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); BEGIN { use Exporter (); - @EXPORT = qw(getprotobyname getprotobynumber getprotoent getproto); - @EXPORT_OK = qw( $p_name @p_aliases $p_proto ); + @EXPORT = qw(getprotobyname getprotobynumber getprotoent); + @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 |