Exterminate PL_na! Exterminate! Exterminate! Exterminate!

p4raw-id: //depot/perl@32704

1 files changed, 1 insertions, 2 deletions

diff --git a/vms/vms.c b/vms/vms.c
index a579d37ff4..81404bc446 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -12673,8 +12673,7 @@ mod2fname(pTHX_ CV *cv)
     if (counter) {
       strcat(work_name, "__");
     }
-    strcat(work_name, SvPV(*av_fetch(in_array, counter, FALSE),
-			   PL_na));
+    strcat(work_name, SvPV_nolen(*av_fetch(in_array, counter, FALSE)));
   }
 
   /* Check to see if we actually have to bother...*/