# be printed out by &panic, which is just the stack-backtrace
# routine shamelessly borrowed from the perl debugger.
+warn( "The 'assert.pl' legacy library is deprecated and will be"
+ . " removed in the next major release of perl." );
+
sub assert {
&panic("ASSERTION BOTCHED: $_[$[]",$@) unless eval $_[$[];
}