From d05d779fac16fa3357540a56d311b220043fd8b7 Mon Sep 17 00:00:00 2001 From: dbs 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