From: djk <djk>
Date: Mon, 12 Jul 1999 12:53:31 +0000 (+0000)
Subject: got rid of warning in date conversion
X-Git-Tag: R_1_31~14
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=69e2746d46e5f6095530e76297aeddc1f359d4fb

got rid of warning in date conversion
---

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;
 }