# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1402687935 -10800
# Node ID 52d8fa967c249b5b98b69bc8a67829af5f98baf8
# Parent  127b1d0f874ebce5e5f11d0d225954e1677744d5
Fix timestamp parsing.

diff -r 127b1d0f874e -r 52d8fa967c24 fetch_weather.pl
--- a/fetch_weather.pl	Fri Jun 13 21:43:53 2014 +0300
+++ b/fetch_weather.pl	Fri Jun 13 22:32:15 2014 +0300
@@ -59,8 +59,7 @@
 sub parse_timestamp($$)
 {
   # XXX: A bit of a hack, but it works.
-  return Time::Piece->strptime($_[0], "%OH:%OM")->epoch -
-         Time::Piece->strptime("00:00", "%OH:%OM")->epoch + $_[1];
+  return Time::Piece->strptime($_[0], "%OH:%OM")->epoch + $_[1];
 }