[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.41 by root, Sun Sep 3 22:45:57 2006 UTC vs.
Revision 1.42 by root, Mon Sep 4 11:08:00 2006 UTC

 {
   static const char eof[] = "\n\n\n\0\0\0";
   av   = 0;
   text = 0;
+  line = 0;
   if (filename)
     {
       dSP;
       ENTER;
             char *sv_ = SvPVbyte (sv, len);
             text = newSV (len + sizeof (eof));
             SvCUR_set (text, len);
             memcpy (SvPVX (text), sv_, len);
             memcpy (SvEND (text), eof, sizeof (eof)); // just to be sure
+            line = SvPVX (text);
           }
         }
       PUTBACK;
       FREETMPS;
       LEAVE;
     }
-  if (!text)
-    text = newSVpvn (eof, sizeof (eof));
-  line = SvPVX (text);
 }
 void object_thawer::get (data_type type, void *obj, attachable_base *ext, int oid)
 {
   if (!av || oid < 0) // this is actually an error of sorts
 char *fgets (char *s, int n, object_thawer &thawer)
 {
   char *p = thawer.line;
   char *q = s;
+  if (!p)
+    return 0;
   while (--n)
     {
       if (!*p)
         break;
   return s == q ? 0 : s;
 }
 keyword object_thawer::get_kv ()
 {
+  if (!line)
+    return KW_EOF;
   for (;;)
     {
       char *p = line;
       if (!*p)

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines