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 330158b77b..1a5e61feee 100644 --- 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 |