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
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 19 Sep 2001 11:45:28 +0000 (13:45 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 19 Sep 2001 11:19:56 +0000 (11:19 +0000)
Message-Id: <20010919110037.19C7.H.M.BRAND@hccnet.nl>

Lvalue casts are not portable.

p4raw-id: //depot/perl@12082

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);
        PL_perl_destruct_level = 2;
        threads = Perl_sharedsv_new(aTHX);
        SHAREDSvEDIT(threads);
-       ((HV*) SHAREDSvGET(threads)) = newHV();
+       SHAREDSvGET(threads) = (SV *)newHV();
        SHAREDSvRELEASE(threads);
        {
            
        SHAREDSvRELEASE(threads);
        {