In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/6d24fbd10b671f02fd7526bee66bd955389d9ee4?hp=2ba65d5fcc3ac0e8cf3fd24ff6b1082f772a8545>
- Log -----------------------------------------------------------------
commit 6d24fbd10b671f02fd7526bee66bd955389d9ee4
Author: Craig A. Berry <craigbe...@mac.com>
Date: Sun Oct 3 17:41:58 2010 -0500
Use isGV_with_GP in vms/vms.c for better glob recognition.
Suggested by Father Chrysostomos in:
[perl #77500] VMS::Filespec and PVLV globs
Affected routines are candelete_fromperl and rmscopy_from_perl.
-----------------------------------------------------------------------
Summary of changes:
vms/vms.c | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/vms/vms.c b/vms/vms.c
index db686d2..9ca1e96 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -13452,7 +13452,7 @@ candelete_fromperl(pTHX_ CV *cv)
mysv = SvROK(ST(0)) ? SvRV(ST(0)) : ST(0);
Newx(fspec, VMS_MAXRSS, char);
if (fspec == NULL) _ckvmssts(SS$_INSFMEM);
- if (SvTYPE(mysv) == SVt_PVGV) {
+ if (isGV_with_GP(mysv)) {
if (!(io = GvIOp(mysv)) || !PerlIO_getname(IoIFP(io),fspec)) {
set_errno(EINVAL); set_vaxc_errno(LIB$_INVARG);
ST(0) = &PL_sv_no;
@@ -13493,7 +13493,7 @@ rmscopy_fromperl(pTHX_ CV *cv)
mysv = SvROK(ST(0)) ? SvRV(ST(0)) : ST(0);
Newx(inspec, VMS_MAXRSS, char);
- if (SvTYPE(mysv) == SVt_PVGV) {
+ if (isGV_with_GP(mysv)) {
if (!(io = GvIOp(mysv)) || !PerlIO_getname(IoIFP(io),inspec)) {
set_errno(EINVAL); set_vaxc_errno(LIB$_INVARG);
ST(0) = sv_2mortal(newSViv(0));
@@ -13512,7 +13512,7 @@ rmscopy_fromperl(pTHX_ CV *cv)
}
mysv = SvROK(ST(1)) ? SvRV(ST(1)) : ST(1);
Newx(outspec, VMS_MAXRSS, char);
- if (SvTYPE(mysv) == SVt_PVGV) {
+ if (isGV_with_GP(mysv)) {
if (!(io = GvIOp(mysv)) || !PerlIO_getname(IoIFP(io),outspec)) {
set_errno(EINVAL); set_vaxc_errno(LIB$_INVARG);
ST(0) = sv_2mortal(newSViv(0));
--
Perl5 Master Repository
