From: miker Date: Thu, 24 Feb 2005 16:19:11 +0000 (+0000) Subject: make sure there is some space between interval parts X-Git-Tag: osrf_rel_2_0_1~1771 X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a07ba4afbf7349ae441a8e6da058a990ec0cb568;p=OpenSRF.git make sure there is some space between interval parts git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@101 9efc2488-bf62-4759-914b-345cdb29e865 --- diff --git a/src/perlmods/OpenSRF/Utils.pm b/src/perlmods/OpenSRF/Utils.pm index 297cade..f24d7d7 100644 --- a/src/perlmods/OpenSRF/Utils.pm +++ b/src/perlmods/OpenSRF/Utils.pm @@ -234,7 +234,7 @@ sub interval_to_seconds { my $interval = shift || $self; $interval =~ s/and/,/g; - $interval =~ s/,//g; + $interval =~ s/,/ /g; my $amount = 0; while ($interval =~ /\s*\+?\s*(\d+)\s*(\w{1})\w*\s*/g) {