Perl代码连接到sybase DB抛出信息错误

Question

我有Perl代码连接到sybase DB。代码运行时，代码连接到sybase。连接成功后，它会触发默认的sql查询...＆＃34;选择@@ version＆＃34;检查在sybase中无效的DB版本并引发错误。希望停止此查询被触发，以便不会收到任何错误。

我不是Perl开发人员！

sub main::open_netcool {
    use vars qw($user $password $OS);

    $OS = (defined $OS ) ? $OS : $main::ENV{DSQUERY};
    DBI->connect("dbi:Sybase:server=$OS", $user, $password,
     {RaiseError=>1, Taint=>1, AutoCommit=>1} );