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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.415 by root, Wed Oct 31 11:19:30 2012 UTC vs.
Revision 1.416 by root, Thu Nov 1 13:02:52 2012 UTC

         faceinfo *f = face_info (idx); assert (f);
         facedata *d = f->face + faceset;
         sv_to (data, d->data);
         STRLEN clen;
         char *cdata = SvPVbyte (chksum, clen);
-        clen = min (CHKSUM_MAXLEN, clen);
+        assert (("cf::face::set_data called with too long checksum", clen <= CHKSUM_MAXLEN));
         assert (("cf::face::set_data must be called with a non-empty checksum", clen));
         if (clen != d->chksum_len || memcmp (d->chksum, cdata, clen))
           {
             d->chksum_len = clen;
         faceinfo *f = face_info (idx); assert (f);
         SvREFCNT_dec (f->meta_hv);
         f->meta_hv = SvOK (sv) ? (HV *)SvREFCNT_inc (SvRV (sv)) : 0;
 }
+SV *mangle_chksum (SV *chksum)
+	CODE:
+	STRLEN len;
+	char *data = SvPVbyte (chksum, len);
+	RETVAL = newSVpvn (data, min (len, CHKSUM_MAXLEN));
+	OUTPUT:
+	RETVAL
 SV *get_chksum (faceidx idx, int faceset = 0)
 	CODE:
         facedata *d = face_data (idx, faceset);
         if (!d) XSRETURN_UNDEF;
         RETVAL = newSVpvn ((char *)d->chksum, d->chksum_len);

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