perl-unicode

Re: Encode-0.97 uploaded

2002-03-24 03:43:31
Dan Kogai <dankogai(_at_)dan(_dot_)co(_dot_)jp> writes:
Encode Hackers,

Encode-0.97 was uploaded as

http://www.dan.co.jp/~dankogai/Encode-0.97.tar.gz

I just fixed a problem with PERLIO=mmap and Encode (change 15462 //depot/perlio)

Change 15462 by nick(_at_)ni-s on 2002/03/24 08:59:35

        Avoid core-dump in Encode with PERLIO=mmap

Affected files ...

.... //depot/perlio/ext/Encode/Encode.xs#52 edit

Differences ...

==== //depot/perlio/ext/Encode/Encode.xs#52 (text) ====

@@ -576,7 +576,15 @@
        if (check) {
            sdone = SvCUR(src) - (slen+sdone);
            if (sdone) {
+#if 1
+               /* FIXME: A Move() is dangerous - PV could be mmap'ed readonly
+                  SvOOK would be ideal - but sv_backoff does not understand 
SvLEN == 0
+                  type SVs and sv_clear() calls it ...
+                */
+               sv_setpvn(src,s+slen,sdone);
+#else
                Move(s + slen, SvPVX(src), sdone , U8);
+#endif
            }
            SvCUR_set(src, sdone);
        }


-- 
Nick Ing-Simmons
http://www.ni-s.u-net.com/