diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2017-12-10 20:25:59 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2017-12-10 20:25:59 -0800 |
| commit | d269f586dd6705f80163f642c0aa81f0e7a72bca (patch) | |
| tree | d75c0cd152a5e901491cf22d5734eada211c3dd3 | |
| parent | 244d26825825c6a1d5bc181e6da699d48bcb51a4 (diff) | |
| download | perl-d269f586dd6705f80163f642c0aa81f0e7a72bca.tar.gz | |
Declaration after statement in typemap
A follow-up to 6da090e6cb and 732d3893ab.
| -rw-r--r-- | dist/Time-HiRes/typemap | 2 | ||||
| -rw-r--r-- | lib/ExtUtils/typemap | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/dist/Time-HiRes/typemap b/dist/Time-HiRes/typemap index 768e56a4f5..ffe60e3694 100644 --- a/dist/Time-HiRes/typemap +++ b/dist/Time-HiRes/typemap @@ -283,8 +283,8 @@ T_ARRAY T_STDIO { GV *gv = (GV *)sv_newmortal(); - gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0); PerlIO *fp = PerlIO_importFILE($var,0); + gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0); if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) ) sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1))); else diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index ca923cf67b..db700b75bf 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -399,8 +399,8 @@ T_ARRAY T_STDIO { GV *gv = (GV *)sv_newmortal(); - gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0); PerlIO *fp = PerlIO_importFILE($var,0); + gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0); if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) ) { SV *rv = newRV_inc((SV*)gv); rv = sv_bless(rv, GvSTASH(gv)); |