This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
REALLY pedantic hv.h nit
authorSimon Cozens <simon@netthink.co.uk>
Mon, 2 Apr 2001 15:43:06 +0000 (16:43 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 2 Apr 2001 22:30:43 +0000 (22:30 +0000)
Message-ID: <20010402154306.A21711@netthink.co.uk>

p4raw-id: //depot/perl@9520

hv.h

diff --git a/hv.h b/hv.h
index a1652d8..a9fc9fb 100644 (file)
--- a/hv.h
+++ b/hv.h
@@ -58,7 +58,7 @@ struct xpvhv {
        } \
        hash_PeRlHaSh += (hash_PeRlHaSh << 3); \
        hash_PeRlHaSh ^= (hash_PeRlHaSh >> 11); \
-       (hash) = (hash_PeRlHaSh += (hash_PeRlHaSh << 15)); \
+       (hash) = (hash_PeRlHaSh + (hash_PeRlHaSh << 15)); \
     } STMT_END
 
 /*