From: Alan Harder <Alan.Harder@Ebay.Sun.COM>
Date: Wed, 23 Dec 1998 14:54:19 +0000 (-0800)
Subject: perlfaq9 minor error
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1fa0e54f2e0b168f2a77a752f92064a58da05ee4;p=p5sagit%2Fp5-mst-13.2.git

perlfaq9 minor error

To: perlbug@perl.com
Message-Id: <199812232254.OAA05986@moshpit.EBay.Sun.COM>

p4raw-id: //depot/cfgperl@2501
---

diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod
index 330158b..1a5e61f 100644
--- a/pod/perlfaq9.pod
+++ b/pod/perlfaq9.pod
@@ -387,7 +387,7 @@ Sys::Hostname module (which is part of the standard perl distribution),
 you can probably try using something like this:
 
     use Sys::Hostname;
-    $address = sprintf('%s@%s', getpwuid($<), hostname);
+    $address = sprintf('%s@%s', (getpwuid($<))[0], hostname);
 
 Company policies on mail address can mean that this generates addresses
 that the company's mail system will not accept, so you should ask for