This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
const declaration fixup
authorCraig A. Berry <craigberry@mac.com>
Thu, 23 Jan 2003 16:24:46 +0000 (10:24 -0600)
committerAbhijit Menon-Sen <ams@wiw.org>
Sun, 26 Jan 2003 02:40:20 +0000 (02:40 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <3E306BAE.4030807@mac.com>

p4raw-id: //depot/perl@18578

ext/Storable/Storable.xs

index e59914a..f1831b8 100644 (file)
@@ -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)",