From b68db26c2a4611b56e935dc75ddf0046f8109791 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 12 Mar 2010 17:06:56 +0000
Subject: [PATCH] backport spelling fix alias to reduce pain in backporting

git-svn-id: svn://svn.open-ils.org/OpenSRF/branches/rel_1_2@1936 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/Utils.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/perl/lib/OpenSRF/Utils.pm b/src/perl/lib/OpenSRF/Utils.pm
index 01ced81..b98a9fd 100644
--- a/src/perl/lib/OpenSRF/Utils.pm
+++ b/src/perl/lib/OpenSRF/Utils.pm
@@ -41,7 +41,7 @@ our $date_parser = DateTime::Format::ISO8601->new;
 %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(clense_ISO8601 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
@@ -374,6 +374,10 @@ 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 cleanse_ISO8601 {
+    return clense_ISO8601(@_);
+}
+
 sub clense_ISO8601 {
 	my $self = shift;
 	my $date = shift || $self;
-- 
2.11.0