From: Mike Guy <mjtg@cam.ac.uk>
Date: Tue, 29 Aug 2000 21:32:37 +0000 (+0100)
Subject: Undo namespace pollution of #6878.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cfe37e547ea81ef511bc6f2b6c418f0c899427a;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/Net/protoent.pm b/lib/Net/protoent.pm
index 6aad940..00a76af 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