This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move an XS::APItest var decl to PREINIT
authorFather Chrysostomos <sprout@cpan.org>
Mon, 13 Jun 2011 06:16:29 +0000 (23:16 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 13 Jun 2011 06:17:37 +0000 (23:17 -0700)
Hopefully this will get smoke reports to pass again on Windows.

ext/XS-APItest/APItest.xs

index cb5de2d..21f417d 100644 (file)
@@ -2794,8 +2794,9 @@ OUTPUT:
 
 void
 fill_hash_with_nulls(HV *hv)
-CODE:
+PREINIT:
     UV i = 0;
+CODE:
     for(; i < 1000; ++i) {
        HE *entry = hv_fetch_ent(hv, sv_2mortal(newSVuv(i)), 1, 0);
        SvREFCNT_dec(HeVAL(entry));