diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2017-12-10 16:53:45 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2017-12-10 18:19:01 -0800 |
| commit | 732d3893ab63739910640c98c1cc83ab7bb1332c (patch) | |
| tree | efb5a9bc096cdb04973f8082eab88f24a02ca04d /os2 | |
| parent | 6da090e6cb9d18c5db3bb70c8c4d0c7e58183273 (diff) | |
| download | perl-732d3893ab63739910640c98c1cc83ab7bb1332c.tar.gz | |
Avoid newGVgen in blead-upstream modules
ExtUtils::ParseXS::Typemaps:
Just in documentation, but it’s good to change it, in case peo-
ple copy it.
Time::HiRes:
It doesn’t even use these typemap entries, but I changed it in case
they get used in the future. (The changes are not identical to the
default typemap, because Time::HiRes is 5.6-compatible, at least
nominally.)
os2/os2.c:
No, this is not a module, but I changed it, too.
Some other instances of newGVgen are already handled properly, or are
just in tests, so I left them alone.
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/os2.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4257,7 +4257,8 @@ XS(XS_OS2_pipe) perlio = PerlIO_fdopen(hpipe, buf); ST(0) = sv_newmortal(); { - GV *gv = newGVgen("OS2::pipe"); + GV *gv = (GV *)sv_newmortal(); + gv_init_pvn(gv, gv_stashpvs("OS2::pipe",1),"__ANONIO__",10,0); if ( do_open6(gv, perltype, strlen(perltype), perlio, NULL, 0) ) sv_setsv(ST(0), sv_bless(newRV((SV*)gv), gv_stashpv("IO::Handle",1))); else |