Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

C: void perl_destruct on 5.6

  • Loading branch information...
commit ec46f99e2eace1122d6bb9b0183f43555266a797 1 parent 50218f7
@rurban authored
Showing with 5 additions and 0 deletions.
  1. +5 −0 lib/B/C.pm
View
5 lib/B/C.pm
@@ -5229,6 +5229,7 @@ _EOT7
/* B::C specific: prepend static svs to arena for sv_clean_objs */
SvANY(&sv_list[0]) = (void *)PL_sv_arenaroot;
PL_sv_arenaroot = &sv_list[0];
+#if PERL_VERSION > 7
if (DEBUG_D_TEST) {
SV* sva;
PerlIO_printf(Perl_debug_log, "\n");
@@ -5238,6 +5239,10 @@ _EOT7
}
}
return perl_destruct( my_perl );
+else
+ perl_destruct( my_perl );
+ return 0;
+#endif
}
_EOT7a
}
Please sign in to comment.
Something went wrong with that request. Please try again.