Help for this page

Select Code to Download


  1. or download this
    my $err = "";
{
...
    local *main::STDOUT = $err = IO::String->new;
    $tcm->dbsqlexec || die "Error in dbsqlexec";
}
  2. or download this
    my $err = "";
{
...
    $tcm->dbsqlexec || die "Error in dbsqlexec";
    select $orig;
}