X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FEncode%2FEncode.xs;h=279631655b02cd60f8e1a386e0e5883730fb605f;hb=ca777f1ce1ff5cad164a769e07ab2e03b14695b6;hp=b42668b81bf645bff4298a5720c3b3ca4d33a11c;hpb=44a4342c9f1bf4dd16241a6721340a5828ede477;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index b42668b..2796316 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -193,8 +193,8 @@ encode_method(pTHX_ encode_t * enc, encpage_t * dir, SV * src,
 	}
     }
  ENCODE_SET_SRC:
-    if (check & ~ENCODE_LEAVE_SRC){
-    	sdone = SvCUR(src) - (slen+sdone);
+    if (check && !(check & ENCODE_LEAVE_SRC)){
+	sdone = SvCUR(src) - (slen+sdone);
 	if (sdone) {
 	    sv_setpvn(src, (char*)s+slen, sdone);
 	}