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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Ddiagnostics.pm297 my $transmo = <<EOFUNC;
298 sub transmo { subroutine
408 $transmo .= $transfmt{$hdr}{pat};
410 $transmo .= " return 0;\n}\n";
411 print STDERR $transmo if $DEBUG;
412 eval $transmo;
547 return &transmo;
549 return 0 unless &transmo;

Completed in 15 milliseconds