IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
1 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/import-export/qif-import/qif-parse.scm
View File

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