[Opensrf-commits] r1893 - trunk/src/perl/lib/OpenSRF (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-01-18 21:06:31 -0500 (Mon, 18 Jan 2010)
New Revision: 1893

Modified:
   trunk/src/perl/lib/OpenSRF/Utils.pm
Log:
Address long-standing typo: clense_ISO8601


Modified: trunk/src/perl/lib/OpenSRF/Utils.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/Utils.pm	2010-01-18 03:00:13 UTC (rev 1892)
+++ trunk/src/perl/lib/OpenSRF/Utils.pm	2010-01-19 02:06:31 UTC (rev 1893)
@@ -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(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 @@
 	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) {