From: Andy Lester <andy@petdance.com>
Date: Sat, 22 Mar 2003 05:02:31 +0000 (+0000)
Subject: [perl #21648] Doc typo in Net::servent
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09e367548f5622c5830617d648540b181c40aa53;p=p5sagit%2Fp5-mst-13.2.git

[perl #21648] Doc typo in Net::servent
From: Andy Lester (via RT) <perlbug-followup@perl.org>
Message-Id: <rt-21648-53986.0.682889311382979@bugs6.perl.org>

p4raw-id: //depot/perl@19063
---

diff --git a/lib/Net/servent.pm b/lib/Net/servent.pm
index 63ae307..21012cb 100644
--- a/lib/Net/servent.pm
+++ b/lib/Net/servent.pm
@@ -74,10 +74,10 @@ method returns an array reference, the rest scalars.
 You may also import all the structure fields directly into your namespace
 as regular variables using the :FIELDS import tag.  (Note that this still
 overrides your core functions.)  Access these fields as variables named
-with a preceding C<n_>.  Thus, C<$serv_obj-E<gt>name()> corresponds to
+with a preceding C<s_>.  Thus, C<$serv_obj-E<gt>name()> corresponds to
 $s_name if you import the fields.  Array references are available as
-regular array variables, so for example C<@{ $serv_obj-E<gt>aliases()
-}> would be simply @s_aliases.
+regular array variables, so for example C<@{ $serv_obj-E<gt>aliases()}>
+would be simply @s_aliases.
 
 The getserv() function is a simple front-end that forwards a numeric
 argument to getservbyport(), and the rest to getservbyname().