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 (file)
--- 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);