fix warning for sqlpluscmd
This commit is contained in:
parent
aeb58e44cf
commit
994255967d
|
@ -45,20 +45,19 @@ sub new {
|
||||||
$options{output}->option_exit();
|
$options{output}->option_exit();
|
||||||
}
|
}
|
||||||
if (!defined($options{noptions})) {
|
if (!defined($options{noptions})) {
|
||||||
$options{options}->add_options(
|
$options{options}->add_options(arguments => {
|
||||||
arguments => {
|
"sqlplus-cmd:s" => { name => 'sqlplus_cmd'},
|
||||||
"sqlplus-cmd:s" => { name => 'sqlplus_cmd'},
|
"oracle-home:s" => { name => 'oracle_home' },
|
||||||
"oracle-home:s" => { name => 'oracle_home' },
|
"tnsadmin-home:s" => { name => 'tnsadmin_home' },
|
||||||
"tnsadmin-home:s" => { name => 'tnsadmin_home' },
|
"tnsnames-sid:s" => { name => 'tnsnames_sid'},
|
||||||
"tnsnames-sid:s" => { name => 'tnsnames_sid'},
|
"username:s" => { name => 'username' },
|
||||||
"username:s" => { name => 'username' },
|
"password:s" => { name => 'password' },
|
||||||
"password:s" => { name => 'password' },
|
"local-connexion" => { name => 'local_connexion', default => 0 },
|
||||||
"local-connexion" => { name => 'local_connexion', default=>0 },
|
"sysdba" => { name => 'sysdba', default => 0 },
|
||||||
"sysdba" => { name => 'sysdba', default=>0 },
|
"sql-errors-exit:s" => { name => 'sql_errors_exit', default => 'unknown' },
|
||||||
"sql-errors-exit:s" => { name => 'sql_errors_exit', default => 'unknown' },
|
"tempdir:s" => { name => 'tempdir', default => '/tmp' },
|
||||||
"tempdir:s" => { name => 'tempdir', default => '/tmp' },
|
}
|
||||||
}
|
);
|
||||||
);
|
|
||||||
}
|
}
|
||||||
$options{options}->add_help(package => __PACKAGE__, sections => 'sqlpluscmd OPTIONS', once => 1);
|
$options{options}->add_help(package => __PACKAGE__, sections => 'sqlpluscmd OPTIONS', once => 1);
|
||||||
|
|
||||||
|
@ -314,7 +313,7 @@ sub fetchrow_array {
|
||||||
my @array_result = ();
|
my @array_result = ();
|
||||||
|
|
||||||
if($self->{stdout} eq '') {
|
if($self->{stdout} eq '') {
|
||||||
$self->{output}->output_add("fetchrow_array: no data returned (no rows selected)", debug => 1);
|
$self->{output}->output_add(long_msg => "fetchrow_array: no data returned (no rows selected)", debug => 1);
|
||||||
return @array_result;
|
return @array_result;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue