merge changes#1423,1465 from maintbranch; checkin two missed files

from earlier changes#1461,1478

p4raw-link: @1478 on //depot/perl: 1d84e8dfc14d5303f4e9e567bd263f6b4d88e584
p4raw-link: @1465 on //depot/maint-5.004/perl: 5c79ff06c1b2e0ce9610857baca341a322e96624
p4raw-link: @1461 on //depot/perl: 8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7
p4raw-link: @1423 on //depot/maint-5.004/perl: 9b114077a050865568261ebf91069aa7983019c3

p4raw-id: //depot/perl@1488

1 files changed, 1 insertions, 1 deletions

diff --git a/t/TEST b/t/TEST
index a302e66a2f..05ee168265 100755
--- a/t/TEST
+++ b/t/TEST
@@ -17,7 +17,7 @@ chdir 't' if -f 't/TEST';
 die "You need to run \"make test\" first to set things up.\n"
   unless -e 'perl' or -e 'perl.exe';
 
-#$ENV{PERL_DESTRUCT_LEVEL} = '2';
+$ENV{PERL_DESTRUCT_LEVEL} = 2; # check leakage for embedders
 $ENV{EMXSHELL} = 'sh';        # For OS/2
 
 if ($#ARGV == -1) {