From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 20 May 2007 01:00:31 +0000 (+0000)
Subject: Make VMS's home-grown glob() recognize a directory even without
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff6757447f8d7d8be9f1cef7f35b9de657c4763e;p=p5sagit%2Fp5-mst-13.2.git

Make VMS's home-grown glob() recognize a directory even without
tell-tale punctuation.

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

diff --git a/vms/vms.c b/vms/vms.c
index 650db58..a4d292a 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -11968,6 +11968,8 @@ Perl_vms_start_glob
 	if (!stat_sts && S_ISDIR(st.st_mode)) {
 	    wilddsc.dsc$a_pointer = tovmspath_utf8(SvPVX(tmpglob),vmsspec,NULL);
 	    ok = (wilddsc.dsc$a_pointer != NULL);
+	    /* maybe passed 'foo' rather than '[.foo]', thus not detected above */
+	    hasdir = 1; 
 	}
 	else {
 	    wilddsc.dsc$a_pointer = tovmsspec_utf8(SvPVX(tmpglob),vmsspec,NULL);