diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-30 00:03:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-30 00:03:19 +0000 |
| commit | 24f1ba9b2223fc835b4bd6620a0213351e693b23 (patch) | |
| tree | e3190efab150239a1b0daed96837d3e164776b92 /pod/perlfaq5.pod | |
| parent | c590f3618f2d45852734e8e3af071fdc1099e114 (diff) | |
| download | perl-24f1ba9b2223fc835b4bd6620a0213351e693b23.tar.gz | |
FAQ sync.
p4raw-id: //depot/perl@12274
Diffstat (limited to 'pod/perlfaq5.pod')
| -rw-r--r-- | pod/perlfaq5.pod | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pod/perlfaq5.pod b/pod/perlfaq5.pod index 85b9f6a995..bfd6d35494 100644 --- a/pod/perlfaq5.pod +++ b/pod/perlfaq5.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq5 - Files and Formats ($Revision: 1.1 $, $Date: 2001/09/20 03:03:00 $) +perlfaq5 - Files and Formats ($Revision: 1.2 $, $Date: 2001/09/26 10:44:41 $) =head1 DESCRIPTION @@ -428,9 +428,9 @@ See L<perlform/"Accessing Formatting Internals"> for an swrite() function. This one will do it for you: sub commify { - local $_ = shift; - 1 while s/^([-+]?\d+)(\d{3})/$1,$2/; - return $_; + my $number = shift; + 1 while ($number =~ s/^([-+]?\d+)(\d{3})/$1,$2/); + return $number; } $n = 23659019423.2331; |