--- libsane-perl-0.03/Sane.xs.orgi	2012-02-11 16:24:17.513757491 +0900
+++ libsane-perl-0.03/Sane.xs	2012-02-11 16:47:04.615021432 +0900
@@ -281,7 +281,7 @@
                 	XPUSHs(sv_2mortal(newSViv(0)));
                 }
                 else {
-                	XPUSHs(sv_2mortal(newSVpv(data, length)));
+                	XPUSHs(sv_2mortal(newSVpvn(data, length)));
 			XPUSHs(sv_2mortal(newSViv(length)));
                 }
                 free (data);