From 83b907a4c26958e4fcec93b2b07d010bcdd4fc4a Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Tue, 3 Jun 2008 12:27:43 +0000
Subject: Make Perl_vms_start_glob() decline politely when passed an empty
 argument.

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

(limited to 'vms')

diff --git a/vms/vms.c b/vms/vms.c
index 82d612ab81..363212a4b0 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
-- 
cgit v1.2.1