X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a80e93c2ac4ef033b7aff53be0a697746e09f7ea..acb491c0cd162b7c0c4e6a68f3c2ed83504d2261:/vms/vms.c

diff --git a/vms/vms.c b/vms/vms.c
index a2552d7..e98c015 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -12911,6 +12911,8 @@ Perl_flex_stat_int(pTHX_ const char *fspec, Stat_t *statbufp, int lstat_flag)
     }
     /* If we were successful, leave errno where we found it */
     if (retval == 0) RESTORE_ERRNO;
+    PerlMem_free(temp_fspec);
+    PerlMem_free(fileified);
     return retval;
 
 }  /* end of flex_stat_int() */