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