X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=1291db3943ff07b75dd1fcd99377d35a6482b342;hb=69e2746d46e5f6095530e76297aeddc1f359d4fb;hp=a1fb13ba2d34771044598ca3753f8a4238754830;hpb=e4a83830dc7e9f06779967a5cb8b837a39872c70;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index a1fb13ba..1291db39 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -80,6 +80,7 @@ sub cltounix
 	return 0 unless $time =~ /^([012]\d)([012345]\d)Z$/;
 	$time = "$1:$2 +0000";
 	my $r = str2time("$date $time");
+	return $r unless $r;
 	return $r == -1 ? undef : $r;
 }