diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-05-28 18:18:46 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2005-05-29 04:45:05 +0000 |
| commit | 94a11853edc681701a5fe80474ba2a421f2a4aef (patch) | |
| tree | 2e6d39a23c41cdc6d820f7c9a52d63a1775bab01 /doio.c | |
| parent | 85827533e60ade365bb1a181edd9766766750b4a (diff) | |
| download | perl-94a11853edc681701a5fe80474ba2a421f2a4aef.tar.gz | |
VMS build update for blead
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <429942A6.10601@mac.com>
p4raw-id: //depot/perl@24613
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2357,8 +2357,8 @@ Perl_start_glob (pTHX_ SV *tmpglob, IO *io) if ((tmpfp = PerlIO_tmpfile()) != NULL) { Stat_t st; if (!PerlLIO_stat(SvPVX_const(tmpglob),&st) && S_ISDIR(st.st_mode)) - ok = ((wilddsc.dsc$a_pointer = tovmspath(SvPVX_const(tmpglob),vmsspec)) != NULL); - else ok = ((wilddsc.dsc$a_pointer = tovmsspec(SvPVX_const(tmpglob),vmsspec)) != NULL); + 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); for (cp=wilddsc.dsc$a_pointer; ok && cp && *cp; cp++) if (*cp == '?') *cp = '%'; /* VMS style single-char wildcard */ |