Check destruction order for exceptions thrown in free callbacks

[perl/modules/Variable-Magic.git] / t / 00-load.t

diff --git a/t/00-load.t b/t/00-load.t
index c64b78fa2c9856308933abf6e055ca3cb7663703..7bc69f4e6cbd9fe4b7f5eddd19c4031a3369831d 100644 (file)
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -12,3 +12,7 @@ BEGIN {
 my $p = Variable::Magic::VMG_PERL_PATCHLEVEL;
 $p = $p ? 'patchlevel ' . $p : 'no patchlevel';
 diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" );
+
+if (eval { require ActivePerl; 1 } and defined &ActivePerl::BUILD) {
+ diag "This is ActiveState Perl $] build " . ActivePerl::BUILD();
+}