Don't crash when parsing empty string as date. Fixes #344466.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@14354 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Chris Shoemaker 2006-06-13 00:35:47 +00:00
parent a36cbde106
commit 9b7245002d

View File

@ -429,6 +429,7 @@
(numeric-date-parts '())
(retval date-string)
(match (regexp-exec qif-date-compiled-rexp date-string)))
(if match
(if (match:substring match 1)
(set! date-parts (list (match:substring match 1)
(match:substring match 2)
@ -447,7 +448,7 @@
(set! date-parts (list (match:substring m 1)
(match:substring m 2)
(match:substring m 3)))))
)))
))))
;; get the strings into numbers (but keep the strings around)
(set! numeric-date-parts