[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 (file)
--- 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().