got rid of warning in date conversion

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index a1fb13ba2d34771044598ca3753f8a4238754830..1291db3943ff07b75dd1fcd99377d35a6482b342 100644 (file)
--- 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;
 }