diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1998-03-12 11:02:29 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-16 15:55:28 +0000 |
| commit | 09b7f37c58c6da6f4965b846b64eab7d9a205663 (patch) | |
| tree | 0175e00c54b302fe0ffcfa25f9c82103d3196460 /pp_hot.c | |
| parent | a887ff1142f02c0c19143d1511194864ae5eafab (diff) | |
| download | perl-09b7f37c58c6da6f4965b846b64eab7d9a205663.tar.gz | |
VMS updates (direct)
[Needed manual tweaks on vms/config.vms since it clashed with other
patches. I may have got it wrong.]
p4raw-id: //depot/perl@817
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1077,7 +1077,10 @@ do_readline(void) } } if ((tmpfp = PerlIO_open(tmpfnam,"w+","fop=dlt")) != NULL) { - ok = ((wilddsc.dsc$a_pointer = tovmsspec(SvPVX(tmpglob),vmsspec)) != NULL); + Stat_t st; + if (!Stat(SvPVX(tmpglob),&st) && S_ISDIR(st.st_mode)) + ok = ((wilddsc.dsc$a_pointer = tovmspath(SvPVX(tmpglob),vmsspec)) != NULL); + else ok = ((wilddsc.dsc$a_pointer = tovmsspec(SvPVX(tmpglob),vmsspec)) != NULL); if (ok) wilddsc.dsc$w_length = (unsigned short int) strlen(wilddsc.dsc$a_pointer); while (ok && ((sts = lib$find_file(&wilddsc,&rsdsc,&cxt, &dfltdsc,NULL,NULL,NULL))&1)) { |