diff options
| author | Yasushi Nakajima <sey@jkc.co.jp> | 2000-08-30 18:53:14 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-30 01:24:26 +0000 |
| commit | 17725611dd99505f3b20bc2339b4ae48163794e9 (patch) | |
| tree | 1d89ad7717d1e5659802ea2116db0456fbf48a47 | |
| parent | 7b910cb885e3dd119baf0e7700aa52474f422093 (diff) | |
| download | perl-17725611dd99505f3b20bc2339b4ae48163794e9.tar.gz | |
Be consistent: other Net::get* do export theirs.
Subject: Re: Net::protoent does not export 'getproto'
Message-Id: <200008300051.DAA24700@taku.hut.fi>
p4raw-id: //depot/perl@6910
| -rw-r--r-- | lib/Net/protoent.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/Net/protoent.pm b/lib/Net/protoent.pm index 00a76aff07..6aad940903 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); - @EXPORT_OK = qw( $p_name @p_aliases $p_proto getproto ); + @EXPORT = qw(getprotobyname getprotobynumber getprotoent getproto); + @EXPORT_OK = qw( $p_name @p_aliases $p_proto ); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); } use vars @EXPORT_OK; @@ -78,7 +78,6 @@ 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 |