See embedded answers below:
> From: "Nguyen, David M" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
>
> I just install DBDx::Chart module on my system, write a simple program
> to test if this module work. When running my script, I receive
> following errors. Can someone explain to me what it means and how do I
> fix it?
> $ dbdxchart.pl
> v-string in use/require non-portable at
> /usr/local/lib/perl5/site_perl/5.8.0/DBD
> /Chart/Plot.pm line 97.
> v-string in use/require non-portable at
> /usr/local/lib/perl5/site_perl/5.8.0/DBD
> /Chart.pm line 98.
> v-string in use/require non-portable at
> /usr/local/lib/perl5/site_perl/5.8.0/DBI
> x/Chart.pm line 11.
The vstring issue is a 5.8.0 thing that IIRC
has been corrected in 5.8.1. To get rid of them,
you'll need to go into each of DBD/Chart/Plot.pm,
DBD/Chart.pm, and DBIx/Chart.pm
replace the line
require 5.6.0;
with
require 5.006;
> SV = RV(0x5bfca0) at 0x387518
> REFCNT = 1
> FLAGS = (ROK)
> RV = 0x597310
> dbih_getcom handle DBIx::Chart::st=HASH(0x597310) is not a DBI handle
> (has no magic) at dbdxchart.pl line 35.
> *** Here's my script:
> #!/usr/local/bin/perl -w
> use DBIx::Chart;
> my $dbh = DBIx::Chart->connect('dbi:Oracle:system01', "user",
> "password")
> or die "Cannot connect\n";
> $rsth = $dbh->prepare( "SELECT * FROM user_tables RETURNING PIECHART(*)
> WHERE WIDTH=400 AND HEIGHT=400 AND TITLE = 'User Talbles' AND COLOR IN ('red',
> 'green', 'blue', 'lyellow', 'lpurple') AND BACKGROUND='lgray' AND
> SIGNATURE='Copyright(C) 2003, Testing.'");
> $rsth->execute();
> $rsth->fetch;
To further debug this, I'll need the following
(*after you've made the vstring edits above):
1) Turn on tracing to level 2 and log to a file, ie,
add "DBIx::Chart->trace(2, 'dbixchart.log');' to your script before
you connect. Send the log when you're done (be sure to remove confidential info).
2) What versions of DBI and DBD::Oracle are you using ?
Dean Arnold
Presicient Corp.
www.presicient.com
