Changeset 2118

Timestamp:

04/26/08 16:19:13 (3 months ago)

Author:

bchoate

Message:

Fix for some warnings when ts2epoch is called without a timestamp. BugId:79517

Files:

• branches/release-36/lib/MT/Util.pm (modified) (1 diff)

branches/release-36/lib/MT/Util.pm

@@ -111 +111 @@
-sub ts2epoch {
-    my ($blog, $ts) = @_;
+    return unless $ts;
-    my ($yr, $mo, $dy, $hr, $mn, $sc) = unpack('A4A2A2A2A2A2', $ts);
-    my $epoch = Time::Local::timegm_nocheck($sc, $mn, $hr, $dy, $mo-1, $yr);