[ID 19990921.013] accidental list context in perlfaq9

To: perl5-porters@perl.org
Reply-To: kragen@pobox.com
Message-Id: <199909212027.QAA03450@kirk.dnaco.net>

p4raw-id: //depot/cfgperl@4213

diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod
index 2443fc9..3da9bc1 100644 (file)
--- a/pod/perlfaq9.pod
+++ b/pod/perlfaq9.pod
@@ -399,7 +399,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', scalar getpwuid($<), 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