diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-29 22:32:37 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-29 20:46:21 +0000 |
| commit | 0cfe37e547ea81ef511bc6f2b6c418f0c899427a (patch) | |
| tree | 8fd870cae232380f16fac75476e01ebba4231435 /lib/Net | |
| parent | 51b5cecbec8d37007b7abc6e32e4ff500bcac12a (diff) | |
| download | perl-0cfe37e547ea81ef511bc6f2b6c418f0c899427a.tar.gz | |
Undo namespace pollution of #6878.
Subject: Re: Net::protoent does not export 'getproto'
Message-Id: <E13Ts3h-0007eN-00@draco.cus.cam.ac.uk>
p4raw-id: //depot/perl@6898
Diffstat (limited to 'lib/Net')
| -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 |