This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Missing ; in Storable.xs
authorGisle Aas <gisle@aas.no>
Mon, 14 Nov 2005 02:32:14 +0000 (18:32 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 14 Nov 2005 10:13:41 +0000 (10:13 +0000)
Message-ID: <lrhdafy0y9.fsf_-_@caliper.activestate.com>

p4raw-id: //depot/perl@26122

ext/Storable/Storable.xs

index 537e464..c63087d 100644 (file)
@@ -3099,7 +3099,7 @@ static int store_hook(
 #else
                tag = *svh;
 #endif
-               ary[i] = tag
+               ary[i] = tag;
                TRACEME(("listed object %d at 0x%"UVxf" is tag #%"UVuf,
                         i-1, PTR2UV(xsv), PTR2UV(tag)));
        }