diff options
| author | Kragen Sitaker <kragen@pobox.com> | 1999-09-21 12:27:53 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-21 20:48:01 +0000 |
| commit | 231ab6d13e7b024930a1ce6bc1ab2943c85287a3 (patch) | |
| tree | d8059376144980fba020feb516cb231ed0c5f0ae /pod/perlfaq9.pod | |
| parent | df988de229808356e22c447ef470e38ba3c238ed (diff) | |
| download | perl-231ab6d13e7b024930a1ce6bc1ab2943c85287a3.tar.gz | |
[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
Diffstat (limited to 'pod/perlfaq9.pod')
| -rw-r--r-- | pod/perlfaq9.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod index 2443fc9cdb..3da9bc1e4d 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 |