This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Smoke 12057 /pro/3gl/CPAN/perl-current
[perl5.git] / ext / threads / threads.xs
index d74a198..09387ba 100755 (executable)
@@ -297,7 +297,7 @@ BOOT:
        PL_perl_destruct_level = 2;
        threads = Perl_sharedsv_new(aTHX);
        SHAREDSvEDIT(threads);
-       ((HV*) SHAREDSvGET(threads)) = newHV();
+       SHAREDSvGET(threads) = (SV *)newHV();
        SHAREDSvRELEASE(threads);
        {