sybperl-l Archive

From: "Avis, Ed" <avised at kbcfp dot com>
Subject: Stopping TSQL 'print' from going to stderr
Date: Nov 10 2003 4:30PM

How can I make the output of TSQL 'print' statements go to my
script's stdout instead of stderr?

I have set up an error handler

    $dbh->{syb_err_handler} = sub {
        my ($err, $sev, $state, $line, $server,
            $proc, $msg, $sql, $err_type) = @_;
        print "number $err, message $msg\n";
    };

and sure enough this makes 'print' messages go to standard
output.  But they still appear on stderr as well!  I've also
tried turning off PrintError but that doesn't help.

I am using DBD::Sybase 1.00 with DBI 1.37 on perl 5.6.1.

-- 
Ed Avis