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 /lib | |
| parent | 244d26825825c6a1d5bc181e6da699d48bcb51a4 (diff) | |
| download | perl-d269f586dd6705f80163f642c0aa81f0e7a72bca.tar.gz | |
Declaration after statement in typemap
A follow-up to 6da090e6cb and 732d3893ab.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/typemap | 2 |
1 files changed, 1 insertions, 1 deletions
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)); |