6 messages in com.mysql.lists.perlRe: broken DBD-mysql-2.9002 (fixed)| From | Sent On | Attachments |
|---|---|---|
| Wolfgang Friebel | 26 Sep 2003 08:39 | |
| Rudy Lippan | 26 Sep 2003 08:59 | |
| Wolfgang Friebel | 26 Sep 2003 09:58 |  .pm |
| lshen | 05 Oct 2003 17:50 | |
| Wolfgang Friebel | 13 Oct 2003 07:54 | |
| Rudy Lippan | 13 Oct 2003 10:17 |
| Subject: | Re: broken DBD-mysql-2.9002 (fixed) |
|---|---|
| From: | Wolfgang Friebel (Wolf...@desy.de) |
| Date: | 09/26/2003 09:58:29 AM |
| List: | com.mysql.lists.perl |
| Attachments: |
On Fri, 26 Sep 2003, Rudy Lippan wrote:
That is right weird. Than you for the update -- I was just starting to respond to the first message. It seems that the attachment got lost in the forward, do you think that you could send it again.
#################### # get_info() # Generated by DBI::DBD::Metadata
sub get_info { my($dbh, $info_type) = @_; require DBD::mysql::GetInfo; my $v = $DBD::mysql::GetInfo::info{int($info_type)}; $v = $v->($dbh) if ref $v eq 'CODE'; return $v; }
I don't see what could be causing the problem, offhand. BTA, the existance of get_info() changes the behaviour of DBI, but even so, what does any of that have to do with accesing a variable in another package? Maybe I am missing something here as I have not seen code that causes the problem.
Indeed, we are the module still in many other scripts which all do work flawlessly (afaik).
For completeness: The test script is
#!/opt/products/perl/5.8.0/bin/perl use Db; Db::Init_DB(); use Dumpvalue; $d=new Dumpvalue; $d->dumpValue(\%Db::);
and the Module Db.pm is attached to this mail
The output with get_info in place is just the ordinary variables: DBI Version: 1.37 'BEGIN' => *Db::BEGIN 'Connect_DB' => *Db::Connect_DB 'DESTROY' => *Db::DESTROY 'Disconnect_DB' => *Db::Disconnect_DB 'Init_DB' => *Db::Init_DB 'SQL_Query' => *Db::SQL_Query 'col_names_hash' => *Db::col_names_hash 'dbh' => *Db::dbh 'import' => *Db::import 'new' => *Db::new 'pw' => *Db::pw 'tables' => *Db::tables 'user' => *Db::user
while without get_info all the variables that get created from the contents of the database are printed as well: DBI Version: 1.37 'BEGIN' => *Db::BEGIN 'Connect_DB' => *Db::Connect_DB 'DESTROY' => *Db::DESTROY 'Disconnect_DB' => *Db::Disconnect_DB 'Init_DB' => *Db::Init_DB 'SQL_Query' => *Db::SQL_Query 'account_filesystem_account_id_hash' => *Db::account_filesystem_account_id_hash 'account_filesystem_filesystem_id_hash' => *Db::account_filesystem_filesystem_id_hash 'account_filesystem_hash' => *Db::account_filesystem_hash 'account_hash' => *Db::account_hash 'account_mailinglist_hash' => *Db::account_mailinglist_hash .....
Wolfgang