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 (file)
--- 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() */
 /*}}}*/