Make VMS's home-grown glob() recognize a directory even without

tell-tale punctuation.

p4raw-id: //depot/perl@31240

1 files changed, 2 insertions, 0 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 650db589d5..a4d292a968 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);