diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-10-19 10:48:21 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:28:00 +0200 |
| commit | c0dea56fe487504493d97df5a7a6be57a2d2834d (patch) | |
| tree | 01085a852455ce2d29c9db5b323b3cab33340b68 /ext/VMS-Stdio | |
| parent | 712f3a554c1afb72cddbe13be9fa16e898820ced (diff) | |
| download | perl-c0dea56fe487504493d97df5a7a6be57a2d2834d.tar.gz | |
ext/VMS-Stdio: switch to using macros designed for string constant args
Diffstat (limited to 'ext/VMS-Stdio')
| -rw-r--r-- | ext/VMS-Stdio/Stdio.pm | 2 | ||||
| -rw-r--r-- | ext/VMS-Stdio/Stdio.xs | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/VMS-Stdio/Stdio.pm b/ext/VMS-Stdio/Stdio.pm index 4d05994279..6474900ef3 100644 --- a/ext/VMS-Stdio/Stdio.pm +++ b/ext/VMS-Stdio/Stdio.pm @@ -13,7 +13,7 @@ use Carp '&croak'; use DynaLoader (); use Exporter (); -$VERSION = '2.41'; +$VERSION = '2.42'; @ISA = qw( Exporter DynaLoader IO::File ); @EXPORT = qw( &O_APPEND &O_CREAT &O_EXCL &O_NDELAY &O_NOWAIT &O_RDONLY &O_RDWR &O_TRUNC &O_WRONLY ); diff --git a/ext/VMS-Stdio/Stdio.xs b/ext/VMS-Stdio/Stdio.xs index 144f9370cc..5f20937303 100644 --- a/ext/VMS-Stdio/Stdio.xs +++ b/ext/VMS-Stdio/Stdio.xs @@ -15,7 +15,7 @@ static bool constant(char *name, IV *pval) { - if (strnNE(name, "O_", 2)) return FALSE; + if (strNEs(name, "O_")) return FALSE; if (strEQ(name, "O_APPEND")) #ifdef O_APPEND @@ -88,10 +88,10 @@ newFH(PerlIO *fp, char type) { * symbol tables. This code (through io = ...) is really * equivalent to gv_fetchpv("VMS::Stdio::__FH__",TRUE,SVt_PVIO), * with a little less overhead, and good exercise for me. :-) */ - stashp = (GV **)hv_fetch(PL_defstash,"VMS::",5,TRUE); + stashp = (GV **)hv_fetchs(PL_defstash,"VMS::",TRUE); if (!stashp || *stashp == (GV *)&PL_sv_undef) return NULL; if (!(stash = GvHV(*stashp))) stash = GvHV(*stashp) = newHV(); - stashp = (GV **)hv_fetch(GvHV(*stashp),"Stdio::",7,TRUE); + stashp = (GV **)hv_fetchs(GvHV(*stashp),"Stdio::",TRUE); if (!stashp || *stashp == (GV *)&PL_sv_undef) return NULL; if (!(stash = GvHV(*stashp))) stash = GvHV(*stashp) = newHV(); |