This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Declaration nit in vms.c's Perl_my_fwrite.
[perl5.git] / vms / vms.c
index d4ceb91..c3af096 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -11289,7 +11289,8 @@ int my_fclose(FILE *fp) {
 int
 my_fwrite(const void *src, size_t itmsz, size_t nitm, FILE *dest)
 {
-  register char *cp, *end, *cpd, *data;
+  register char *cp, *end, *cpd;
+  char *data;
   register unsigned int fd = fileno(dest);
   register unsigned int fdoff = fd / sizeof(unsigned int);
   int retval;