This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Trailing semi-colon are not allowed on #ifdef's in ANSI
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 15 Jul 2004 14:16:07 +0000 (14:16 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 15 Jul 2004 14:16:07 +0000 (14:16 +0000)
p4raw-id: //depot/perl@23117

ext/Storable/Storable.xs

index 851443b..3c65c4a 100644 (file)
@@ -1843,7 +1843,7 @@ static int store_ref(pTHX_ stcxt_t *cxt, SV *sv)
         * Follow reference, and check if target is overloaded.
         */
 
-#ifdef SvWEAKREF;
+#ifdef SvWEAKREF
        if (SvWEAKREF(sv))
                is_weak = 1;
        TRACEME(("ref (0x%"UVxf") is%s weak", PTR2UV(sv), is_weak ? "" : "n't"));