From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 29 Nov 2007 18:29:40 +0000 (+0000)
Subject: Make VMS::Filespec::vms_realname return undef instead of garbage
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd43acd7f6d96351d9ade59be60f84c5989ee3b6;p=p5sagit%2Fp5-mst-13.2.git

Make VMS::Filespec::vms_realname return undef instead of garbage
when it fails.

p4raw-id: //depot/perl@32556
---

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 */