From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 30 Aug 2000 13:30:36 +0000 (-0500)
Subject: fix Storable on VMS by fixing my_fwrite()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95678dd58021da848cf512f7ec611b96d55a8e9c;p=p5sagit%2Fp5-mst-13.2.git

fix Storable on VMS by fixing my_fwrite()
Message-Id: <4.3.2.7.2.20000830130617.02b8b968@exchi01>

p4raw-id: //depot/perl@6923
---

diff --git a/vms/vms.c b/vms/vms.c
index 35b5895..cda7572 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4709,7 +4709,7 @@ my_fwrite(void *src, size_t itmsz, size_t nitm, FILE *dest)
     src = cp + 1;
   }
 
-  return 1;
+  return nitm;
 
 }  /* end of my_fwrite() */
 /*}}}*/