FAQ

At 5:30 PM -0800 11/11/03, Terrence Brannon wrote:
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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org

Search Discussions

Discussion Posts

Previous

Follow ups

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 5 of 9 | next ›
Discussion Overview
groupembperl @
categoriesmodperl, perl
postedNov 12, '03 at 1:30a
activeJan 25, '04 at 4:04a
posts9
users5
websiteperl.apache.org

People

Translate

site design / logo © 2022 Grokbase