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.
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 ma
gic) 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 WI
DTH=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;
