[perl.git] branch blead updated. v5.27.6-189-gd269f586dd

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/d269f586dd6705f80163f642c0aa81f0e7a72bca?hp=244d26825825c6a1d5bc181e6da699d48bcb51a4>

- Log -----------------------------------------------------------------
commit d269f586dd6705f80163f642c0aa81f0e7a72bca
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Sun Dec 10 20:25:59 2017 -0800

    Declaration after statement in typemap
    
    A follow-up to 6da090e6cb and 732d3893ab.

-----------------------------------------------------------------------

Summary of changes:
 dist/Time-HiRes/typemap | 2 +-
 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));

-- 
Perl5 Master Repository