From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 3 Jun 2008 12:27:43 +0000 (+0000)
Subject: Make Perl_vms_start_glob() decline politely when passed an empty
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=83b907a4c26958e4fcec93b2b07d010bcdd4fc4a;p=p5sagit%2Fp5-mst-13.2.git

Make Perl_vms_start_glob() decline politely when passed an empty
argument.

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

diff --git a/vms/vms.c b/vms/vms.c
index 82d612a..363212a 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -12768,6 +12768,11 @@ Perl_vms_start_glob
     unsigned long int lff_flags = 0;
     int rms_sts;
 
+    if (!SvOK(tmpglob)) {
+        SETERRNO(ENOENT,RMS$_FNF);
+        return NULL;
+    }
+
 #ifdef VMS_LONGNAME_SUPPORT
     lff_flags = LIB$M_FIL_LONG_NAMES;
 #endif