perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Kee Hinckley <naz...@somewhere.com>
Subject Re: DBIx::Recordset struggles to pass tests
Date Sat, 24 Jan 2004 04:13:41 GMT
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


Mime
View raw message