| Subject: | auto_quote and others defaults |
Hi,
I've just updated from CPAN and faced with issue regarding autoquoting,
but it relates to other none-zero defaults in new method. In case you
wish to set them to zero, they are still set to default (as zero is
false). I think constructor part should look like that:
my $self = {
_host => $arg{host},
_user => $arg{user} || $ENV{'USER'},
_password => $arg{password},
_cipher => $arg{cipher},
_port => $arg{port},
_error_handler => $arg{error_handler},
_preserve => $arg{preserve} || 0,
_recursive => $arg{recursive} || 0,
_verbose => $arg{verbose} || 0,
_auto_yes => $arg{auto_yes} || 0,
_terminator => $arg{terminator} || "\n",
_timeout => (defined($arg{timeout})) ? $arg{timeout} : 10,
_timeout_auto => (defined($arg{timeout_auto})) $arg{timeout_auto}
: 1,
_timeout_err => $arg{timeout_err} || undef,
_no_check => $arg{no_check} || 0,
_protocol => $arg{protocol} || undef,
_identity_file => $arg{identity_file} || undef,
_option => $arg{option} || undef,
_subsystem => $arg{subsystem} || undef,
_scp_path => $arg{scp_path} || undef,
_auto_quote => (defined($arg{auto_quote})) ? $arg{auto_quote} : 1,
};