keep the typo around for a while ... sorry, dbs ;)

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1894 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perl/lib/OpenSRF/Utils.pm b/src/perl/lib/OpenSRF/Utils.pm
index 61c2f1b..6965fb4 100644 (file)
--- 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(cleanse_ISO8601 gmtime_ISO8601 interval_to_seconds seconds_to_interval)],
+       datetime        => [qw(clense_ISO8601 gcleanse_ISO8601 gmtime_ISO8601 interval_to_seconds seconds_to_interval)],
 );
 Exporter::export_ok_tags('common','daemon','datetime');  # add aa, cc and dd to @EXPORT_OK
 
@@ -408,6 +408,8 @@ sub cleanse_ISO8601 {
        return $date;
 }
 
+sub clense_ISO8601 { return cleanse_ISO8601(@_); }
+
 =head2 $utils_obj->daemonize('ps_name') OR daemonize('ps_name')
 
 Turns the current process into a daemon.  B<ps_name> is optional, and is used