From 69e2746d46e5f6095530e76297aeddc1f359d4fb Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 12 Jul 1999 12:53:31 +0000 Subject: [PATCH] got rid of warning in date conversion --- perl/DXUtil.pm | 1 + 1 file changed, 1 insertion(+) 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; } -- 2.43.0