From bb934b522f98ca0590bc4bb13dbe1159f441abb3 Mon Sep 17 00:00:00 2001
From: Jesse Gumm <sigmastar@gmail.com>
Date: Mon, 7 Mar 2016 05:48:56 +0000
Subject: [PATCH] Fix relative parsing

---
 src/qdate.erl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/qdate.erl b/src/qdate.erl
index e29e00b..d29a191 100644
--- a/src/qdate.erl
+++ b/src/qdate.erl
@@ -656,9 +656,12 @@ range_years(Interval, Start, Finish) ->
 parse_relative({relative, Date, Relation}) when is_atom(Relation) ->
     parse_relative({relative, Date, atom_to_list(Relation)});
 parse_relative({relative, Date, Relation}) when is_list(Relation); is_binary(Relation) ->
-    {OpStr, NumStr, UnitStr} = parse_actual_relation(Relation),
-    {Num, Unit} = normalize_relative_matches(OpStr, NumStr, UnitStr),
-    add_unit(Unit, Num, Date);
+    case parse_actual_relation(Relation) of
+        undefined -> undefined;
+        {OpStr, NumStr, UnitStr} ->
+	    {Num, Unit} = normalize_relative_matches(OpStr, NumStr, UnitStr),
+	    add_unit(Unit, Num, Date)
+    end;
 parse_relative(now) ->
     unixtime();
 parse_relative("now") ->