* casefile.c (casereader_read_xfer): Always initialize the case,

	even on an error condition.

diff --git a/src/data/ChangeLog b/src/data/ChangeLog
index 856a177da3bf52c4d5cbaec20300d1782974a5d7..fb3632a948853b49c1a6a60223a7e8bb192c21d4 100644 (file)
--- a/src/data/ChangeLog
+++ b/src/data/ChangeLog
@@ -1,3 +1,8 @@
+Sat Oct 14 16:56:44 2006  Ben Pfaff  <blp@gnu.org>
+
+       * casefile.c (casereader_read_xfer): Always initialize the case,
+       even on an error condition.
+
 Wed Sep 27 09:37:49 WST 2006 John Darrington <john@darrington.wattle.id.au>
 
        * procedure.c (case_limit_trns_proc): Fixed buglet which rendered the 

diff --git a/src/data/casefile.c b/src/data/casefile.c
index f0e700d530a131b3ec5560916d37a7100df2aba5..e6c6fa676baa35e3315f94c9a080f9f9fbced1f2 100644 (file)
--- a/src/data/casefile.c
+++ b/src/data/casefile.c
@@ -150,6 +150,7 @@ casereader_read_xfer (struct casereader *ffr, struct ccase *c)
 
   struct ccase *read_case = NULL ;
 
+  case_nullify (c);
   if ( casefile_error (cf) )
     return false;
 
@@ -157,10 +158,7 @@ casereader_read_xfer (struct casereader *ffr, struct ccase *c)
   if ( ! read_case ) return false;
 
   if ( ffr->destructive && casefile_in_core (cf) )
-    {
-      case_nullify (c);
     case_move (c, read_case);
-    }
   else
     case_clone (c, read_case);