This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix compiling with -DPURIFY
authorNicholas Clark <nick@ccl4.org>
Fri, 17 Jun 2005 19:37:56 +0000 (19:37 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 17 Jun 2005 19:37:56 +0000 (19:37 +0000)
p4raw-id: //depot/perl@24891

sv.c

diff --git a/sv.c b/sv.c
index 66094a2..e423cbb 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -1573,11 +1573,11 @@ Perl_sv_upgrade(pTHX_ register SV *sv, U32 mt)
 
     if (old_body_arena) {
 #ifdef PURIFY
 
     if (old_body_arena) {
 #ifdef PURIFY
-       my_safefree(old_body)
+       my_safefree(old_body);
 #else
        S_del_body(aTHX_ old_body, old_body_arena, old_body_offset);
 #endif
 #else
        S_del_body(aTHX_ old_body, old_body_arena, old_body_offset);
 #endif
-}
+    }
 }
 
 /*
 }
 
 /*