[Opensrf-commits] r1894 - trunk/src/perl/lib/OpenSRF (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-01-18 22:53:42 -0500 (Mon, 18 Jan 2010)
New Revision: 1894

Modified:
   trunk/src/perl/lib/OpenSRF/Utils.pm
Log:
keep the typo around for a while ... sorry, dbs ;)

Modified: trunk/src/perl/lib/OpenSRF/Utils.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/Utils.pm	2010-01-19 02:06:31 UTC (rev 1893)
+++ trunk/src/perl/lib/OpenSRF/Utils.pm	2010-01-19 03:53:42 UTC (rev 1894)
@@ -32,7 +32,7 @@
 %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 @@
 	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