With DBD::Oracle 1.12 and perl 5.8.2, DBIx::Recordset fails its tests a little later:
... Select with sub table... ok - 2 ... Test terminated with fatal error! Look at test.log
test.log: ... Can't upgrade that kind of scalar at test.pl line 83.
DBIx::Recordset .25 (or earlier). Perl 5.8.1. I'm seeing that error in the following case. I'm fetching a link from a record. I'm putting it in a scalar. (I don't use the global versions).
DB: Row::FETCH -keyword = <*DBIx::Recordset::newself>
[19027]ERR: 24: Error in Perl code: Can't upgrade that kind of scalar at /usr/local/www/purem/index.html line 36.
Here it is in detail. Any ideas?
DB: Row::FETCH -keyword = Setup New Recordset for table keywordmap,keyword, article_id = 62
DB: Use already open dbh for DBI:mysql:PureMessaging;host=localhost (id=3, numOpen = 0)
DB: TAB = keywordmap, COL = 0, NAME = article_id, TYPE = 4 -> numeric
DB: TAB = keywordmap, COL = 1, NAME = keyword_id, TYPE = 4 -> numeric
DB: TAB = keyword, COL = 0, NAME = id, TYPE = 4 -> numeric
DB: TAB = keyword, COL = 1, NAME = type, TYPE = 12
DB: TAB = keyword, COL = 2, NAME = keyword, TYPE = 12
DB: TAB = keywordmap, COL = 0, NAME = article_id, TYPE = 4 -> numeric
DB: TAB = keywordmap, COL = 1, NAME = keyword_id, TYPE = 4 -> numeric
DB: TAB = keyword, COL = 0, NAME = id, TYPE = 4 -> numeric
DB: TAB = keyword, COL = 1, NAME = type, TYPE = 12
DB: TAB = keyword, COL = 2, NAME = keyword, TYPE = 12
DB: New Recordset driver=mysql placeholders supported
DB: Setup: !Debug = 9
DB: Setup: !Fields = <undef>
DB: Setup: !TabRelation = <undef>
DB: Setup: !TabJoin = keywordmap LEFT JOIN keyword on (keyword_id=id)
DB: Setup: !PrimKey = <undef>
DB: Setup: !Serial = <undef>
DB: Setup: !Sequence = <undef>
DB: Setup: !SeqClass = <undef>
DB: Setup: !StoreAll = <undef>
DB: Setup: !Default = HASH(0x2d4e3e4)
DB: Setup: !IgnoreEmpty = 0
DB: Setup: !WriteMode = 7
DB: Setup: !TieRow = 1
DB: Setup: !LongNames = 0
DB: Setup: !LinkName = 0
DB: Setup: !NameField = <undef>
DB: Setup: !Order = keyword
DB: Setup: !TableFilter = <undef>
DB: Setup: !DoOnConnect = <undef>
DB: SelectWhere <!Default>=<HASH(0x2d4e3e4)> type = !
DB: SelectWhere <!LinkedField>=<article_id> type = !
DB: SelectWhere <!Order>=<keyword> type = !
DB: SelectWhere <!MainField>=<id> type = !
DB: SelectWhere <!Filter>=<<undef>> type = !
DB: SelectWhere <!DataSource>=<DBIx::Recordset=HASH(0xbd2a40)> type = !
DB: SelectWhere <article_id>=<62> type = a
DB: Single Field article_id
DB: Single Field gives article_id = ?
DB: Key article_id gives (article_id = ?) bind_values = <62> bind_types=<4>
DB: expr is ( (article_id = ?))
DB: SelectWhere <!Table>=<keywordmap,keyword> type = !
DB: SelectWhere <!TabJoin>=<keywordmap LEFT JOIN keyword on (keyword_id=id)> type = !
DB: FLUSH Recordset id = 3 DBIx::Recordset=HASH(0xbdeb74)
DB: 'SELECT * FROM keywordmap LEFT JOIN keyword on (keyword_id=id) WHERE ( (article_id = ?)) ORDER BY keyword ' bind_values=<62> bind_types=<4>
DB: Row::FETCH -keyword = <*DBIx::Recordset::newself>
[19027]ERR: 24: Error in Perl code: Can't upgrade that kind of scalar at /usr/local/www/purem/index.html line 36.
describe keywordmap; +------------+------------------+------+-----+---------+-------+ | Field | Type | Null | Key | Default | Extra | +------------+------------------+------+-----+---------+-------+ | article_id | int(10) unsigned | | PRI | 0 | | | keyword_id | int(10) unsigned | | PRI | 0 | | +------------+------------------+------+-----+---------+-------+ 2 rows in set (0.01 sec)
mysql> describe keyword; +---------+------------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +---------+------------------+------+-----+---------+----------------+ | id | int(10) unsigned | | PRI | NULL | auto_increment | | type | varchar(32) | YES | MUL | | | | keyword | varchar(64) | | | | | +---------+------------------+------+-----+---------+----------------+ 3 rows in set (0.00 sec)
DB: SelectWhere <article_id>=<<undef>> type = a
DB: Single Field article_id
DB: Single Field gives article_id IS NULL
DB: Key article_id gives (article_id IS NULL) bind_values = <> bind_types=<>
DB: expr is ( (article_id IS NULL))
DB: FLUSH Recordset id = 3 DBIx::Recordset=HASH(0xbd6cc4)
DB: 'SELECT * FROM keywordmap LEFT JOIN keyword on (keyword_id=id) WHERE ( (article_id IS NULL)) ORDER BY keyword ' bind_values=<> bind_types=<>
DB: Row::FETCH -keyword = <*DBIx::Recordset::newself>
[18939]ERR: 24: Error in Perl code: Can't upgrade that kind of scalar at /usr/local/www/purem/index.html line 36.
--
Kee Hinckley
http://www.messagefire.com/ Next Generation Spam Defense
http://commons.somewhere.com/buzz/ Writings on Technology and Society
I'm not sure which upsets me more: that people are so unwilling to accept responsibility for their own actions, or that they are so eager to regulate everyone else's.
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
