Subject: | Weird interaction with localized $SIG{__WARN__} |
As per #dbi:
rabbit@Thesaurus:~$ perl -Mwarnings -MDBI -e 'my $x; my $y = "$x"; {
warn "this should be hidden"; my $sth = DBI->connect(@ENV{map {
"DBICTEST_MSSQL_ODBC_$_" } qw/DSN USER PASS/}, { AutoCommit => 0,
RaiseError => 1 })->do ("SELECT 1") }'
Use of uninitialized value $x in string at -e line 1.
this should be hidden at -e line 1.
Issuing rollback() due to DESTROY without explicit disconnect() of
DBD::ODBC::db handle
server=192.168.0.101;port=10308;database=dbic_test;driver=FreeTDS;tds_version=8.0.
rabbit@Thesaurus:~$ perl -Mwarnings -MDBI -e '$SIG{__WARN__} = sub {};
my $x; my $y = "$x"; { warn "this should be hidden"; my $sth =
DBI->connect(@ENV{map { "DBICTEST_MSSQL_ODBC_$_" } qw/DSN USER PASS/}, {
AutoCommit => 0, RaiseError => 1 })->do ("SELECT 1") }'
rabbit@Thesaurus:~$ perl -Mwarnings -MDBI -e 'local $SIG{__WARN__} = sub
{}; my $x; my $y = "$x"; { warn "this should be hidden"; my $sth =
DBI->connect(@ENV{map { "DBICTEST_MSSQL_ODBC_$_" } qw/DSN USER PASS/}, {
AutoCommit => 0, RaiseError => 1 })->do ("SELECT 1") }'
Issuing rollback() due to DESTROY without explicit disconnect() of
DBD::ODBC::db handle
server=192.168.0.101;port=10308;database=dbic_test;driver=FreeTDS;tds_version=8.0.