X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f21d7107612aaee31e255b36dd90c915f569c210..69495e6aae8fbe200ffe8bf879f7802849dcbe79:/ext/Storable/Storable.xs

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index e59914a..f1831b8 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -3369,7 +3369,7 @@ static int magic_write(stcxt_t *cxt)
         length -= sizeof (magicstr) - 1;
     }        
 
-    WRITE(header, length);
+    WRITE( (unsigned char*) header, length);
 
     if (!cxt->netorder) {
 	TRACEME(("ok (magic_write byteorder = 0x%lx [%d], I%d L%d P%d D%d)",