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-Tag: accepted/trunk/20130322.191538~14097
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cd43acd7f6d96351d9ade59be60f84c5989ee3b6;p=platform%2Fupstream%2Fperl.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 */