diff options
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 |