From: Ben Pfaff <blp@gnu.org>
Date: Sun, 2 Jul 2006 04:25:12 +0000 (+0000)
Subject: Fix bug #15786: System File Creation crashes if directoy is
X-Git-Tag: v0.6.0~792
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6cb6d04fd450602772b440f6a157068d38661915;p=pspp-builds.git

Fix bug #15786: System File Creation crashes if directoy is
nonexistent.
---

diff --git a/src/language/data-io/ChangeLog b/src/language/data-io/ChangeLog
index 37047d67..22d8e675 100644
--- a/src/language/data-io/ChangeLog
+++ b/src/language/data-io/ChangeLog
@@ -1,3 +1,11 @@
+Sat Jul  1 20:44:22 2006  Ben Pfaff  <blp@gnu.org>
+
+	Fix bug #15786: System File Creation crashes if directoy is
+	nonexistent.
+	
+	* get.c (parse_write_command): Check that the any_writer open
+	succeeds.
+
 Tue Jun 27 22:44:28 2006  Ben Pfaff  <blp@gnu.org>
 
 	Fix regression in command name completion reported by John
diff --git a/src/language/data-io/get.c b/src/language/data-io/get.c
index 651d222a..0f082477 100644
--- a/src/language/data-io/get.c
+++ b/src/language/data-io/get.c
@@ -440,6 +440,8 @@ parse_write_command (enum writer_type writer_type,
     }
   else
     aw->writer = any_writer_open (handle, dict);
+  if (aw->writer == NULL)
+    goto error;
   dict_destroy (dict);
   
   return aw;