Author: george
Date: 2008-11-19 22:15:04 -0500 (Wed, 19 Nov 2008)
New Revision: 30

Modified:
   trunk/perl/JLog.xs
Log:
I'm liking this better.  Maintain our current position if we et this sort of error,
we'll fall into the error case in the next read() and all will be good.



Modified: trunk/perl/JLog.xs
===================================================================
--- trunk/perl/JLog.xs	2008-11-20 03:07:02 UTC (rev 29)
+++ trunk/perl/JLog.xs	2008-11-20 03:15:04 UTC (rev 30)
@@ -351,8 +351,7 @@
       }
       if(jlog_ctx_read_message(my_obj->ctx, &cur, &message) != 0) {
         if(jlog_ctx_err(my_obj->ctx) == JLOG_ERR_FILE_OPEN) {
-          my_obj->start = epoch;
-          my_obj->end = epoch;
+	  my_obj->error = 1;
           RETVAL = &PL_sv_undef;
           goto end;
 	}