From 95678dd58021da848cf512f7ec611b96d55a8e9c Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Wed, 30 Aug 2000 08:30:36 -0500
Subject: [PATCH] fix Storable on VMS by fixing my_fwrite() Message-Id:
 <4.3.2.7.2.20000830130617.02b8b968@exchi01>

p4raw-id: //depot/perl@6923
---
 vms/vms.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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