From: Kragen Sitaker <kragen@pobox.com>
Date: Tue, 21 Sep 1999 16:27:53 +0000 (-0400)
Subject: [ID 19990921.013] accidental list context in perlfaq9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=231ab6d13e7b024930a1ce6bc1ab2943c85287a3;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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