From cd43acd7f6d96351d9ade59be60f84c5989ee3b6 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Thu, 29 Nov 2007 18:29:40 +0000
Subject: [PATCH] Make VMS::Filespec::vms_realname return undef instead of
 garbage when it fails.

p4raw-id: //depot/perl@32556
---
 vms/vms.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/vms/vms.c b/vms/vms.c
index a45dee5..e81c045 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 */
-- 
2.7.4