Make VMS::Filespec::vms_realname return undef instead of garbage

when it fails.

p4raw-id: //depot/perl@32556

1 files changed, 4 insertions, 1 deletions

diff --git a/vms/vms.c b/vms/vms.c
index a45dee5662..e81c0458a3 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -13179,7 +13179,10 @@ mp_do_vms_realname(pTHX_ const char *filespec, char *outbuf,
     /* Fall back to fid_to_name */
 
     sts = vms_fid_to_name(outbuf, VMS_MAXRSS + 1, filespec);
-    if (sts == 0) {
+    if (sts != 0) {
+	return NULL;
+    }
+    else {
 
 
 	/* Now need to trim the version off */