From b1ecc2ac6ed6e4036f006f38385fa98cb12ebbb2 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Mon, 3 Aug 2015 13:56:51 +0100
Subject: [PATCH] Correct zero stripper.

---
 Webperl/Template.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Webperl/Template.pm b/Webperl/Template.pm
index 86dd53f..ced0ecc 100644
--- a/Webperl/Template.pm
+++ b/Webperl/Template.pm
@@ -884,7 +884,7 @@ sub format_time {
     $datestr =~ s/(\d+)\s*%o/ordinal($1)/ge;
 
     # 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;
 }