From d05d779fac16fa3357540a56d311b220043fd8b7 Mon Sep 17 00:00:00 2001
From: dbs <dbs@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 19 Jan 2010 02:06:31 +0000
Subject: [PATCH] Address long-standing typo: clense_ISO8601
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1893 9efc2488-bf62-4759-914b-345cdb29e865
---
src/perl/lib/OpenSRF/Utils.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/perl/lib/OpenSRF/Utils.pm b/src/perl/lib/OpenSRF/Utils.pm
index d527521..61c2f1b 100644
--- a/src/perl/lib/OpenSRF/Utils.pm
+++ b/src/perl/lib/OpenSRF/Utils.pm
@@ -32,7 +32,7 @@ push @ISA, 'Exporter';
%EXPORT_TAGS = (
common => [qw(interval_to_seconds seconds_to_interval sendmail tree_filter)],
daemon => [qw(safe_fork set_psname daemonize)],
- datetime => [qw(clense_ISO8601 gmtime_ISO8601 interval_to_seconds seconds_to_interval)],
+ datetime => [qw(cleanse_ISO8601 gmtime_ISO8601 interval_to_seconds seconds_to_interval)],
);
Exporter::export_ok_tags('common','daemon','datetime'); # add aa, cc and dd to @EXPORT_OK
@@ -371,7 +371,7 @@ sub gmtime_ISO8601 {
return sprintf('%d-%0.2d-%0.2dT%0.2d:%0.2d:%0.2d+00:00', $y, $M, $d, $h, $m, $s);
}
-sub clense_ISO8601 {
+sub cleanse_ISO8601 {
my $self = shift;
my $date = shift || $self;
if ($date =~ /^\s*(\d{4})-?(\d{2})-?(\d{2})/o) {
--
2.11.0