Searched refs:destruct_level (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dperl.c411 volatile int destruct_level; /* 0=none, 1=full, 2=full with checks */ local
492 destruct_level = PL_perl_destruct_level;
498 if (destruct_level < i)
499 destruct_level = i;
574 if (destruct_level == 0){
852 if (destruct_level >= 2 && ckWARN_d(WARN_INTERNAL)) {

Completed in 76 milliseconds