Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correct zero stripper.

Browse Source
This commit is contained in:
Chris 2015-08-03 13:56:51 +01:00
parent 35786934eb
commit b1ecc2ac6e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Webperl/Template.pm
View File

@ -884,7 +884,7 @@ sub format_time {
$datestr =~ s/(\d+)\s*%o/ordinal($1)/ge; $datestr =~ s/(\d+)\s*%o/ordinal($1)/ge;
# Trim leading zeros, as they are pointless # Trim leading zeros, as they are pointless
$datestr =~ s/0+([1-9])/$1/g; $datestr =~ s/(\A|\D)0+([1-9])/$1$2/g;
return $datestr; return $datestr;
} }