recordset error/perl messages

Discussion in 'Perl Misc' started by gary artim, Feb 6, 2004.

  1. gary artim

    gary artim Guest

    Hi All,

    I have a problem using DBIx::RecordSet. I get correct results but continue
    to get these messages on stderr. I looked at Compat.pm and it seems to be
    pointing out a problem with my call to Setup. Could anyone (much thanks)
    shed some light on my tired eyes? See below...

    Gary

    code sample:
    *set = DBIx::Recordset-> Setup ( {'!DataSource' => "dbi:mysql:database=$opt_db;host=127.0.0.1",
    '!Username' => $user,
    '!Password' => $password,
    '!Table' => $opt_table,
    } );


    error message:
    gen1:/home/mysql_dev # ./dbutil.pl -d t -t abc
    returning default for NumericTypes on driver mysql at /usr/lib/perl5/site_perl/5.8.1/DBIx/Compat.pm line 517
    DBIx::Compat::GetItem('mysql','NumericTypes') called at /usr/lib/perl5/site_perl/5.8.1/DBIx/Database.pm line 212
    DBIx::Database::Base::QueryMetaData('DBIx::Recordset=HASH(0x8538138)','abc') called at /usr/lib/perl5/site_perl/5.8.1/DBIx/Recordset.pm line 240
    DBIx::Recordset::SetupDBConnection('DBIx::Recordset=HASH(0x8538138)','dbi:mysql:database=t;host=127.0.0.1','abc','root','sql!my','undef') called at /usr/lib/perl5/site_perl/5.8.1/DBIx/Recordset.pm line 334
    DBIx::Recordset::New('DBIx::Recordset','dbi:mysql:database=t;host=127.0.0.1','abc','root','sql!my','undef') called at /usr/lib/perl5/site_perl/5.8.1/DBIx/Recordset.pm line 432
    DBIx::Recordset::SetupObject('DBIx::Recordset','HASH(0x85381b0)') called at /usr/lib/perl5/site_perl/5.8.1/DBIx/Recordset.pm line 595
    DBIx::Recordset::Setup('DBIx::Recordset','HASH(0x85381b0)') called at ./dbutil.pl line 194
    main::dump_table('dbi:mysql:database=t;host=127.0.0.1','root','sql!my','abc','','') called at ./dbutil.pl line 51
    main::main_routine('t','abc','undef','') called at ./dbutil.pl line 32



    my version of perl:
    Summary of my perl5 (revision 5.0 version 8 subversion 1) configuration:
    Platform:
    osname=linux, osvers=2.6.0-test3, archname=i586-linux-thread-multi
    uname='linux g8 2.6.0-test3 #1 smp fri nov 14 00:07:01 utc 2003 i686 i686 i386 gnulinux '
    config_args='-ds -e -Dprefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm -Duseshrplib=true -Doptimize=-O2 -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -pipe'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
    Compiler:
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2 -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -pipe',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -fno-strict-aliasing'
    ccversion='', gccversion='3.3.1 (SuSE Linux)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
    Linker and Libraries:
    ld='cc', ldflags =''
    libpth=/lib /usr/lib /usr/local/lib
    libs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    libc=, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version='2.3.2'
    Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.8.1/i586-linux-thread-multi/CORE'
    cccdlflags='-fPIC', lddlflags='-shared'


    Characteristics of this binary (from libperl):
    Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT
    Built under linux
    Compiled at Dec 10 2003 09:22:12
    @INC:
    /usr/lib/perl5/5.8.1/i586-linux-thread-multi
    /usr/lib/perl5/5.8.1
    /usr/lib/perl5/site_perl/5.8.1/i586-linux-thread-multi
    /usr/lib/perl5/site_perl/5.8.1
    /usr/lib/perl5/site_perl
    /usr/lib/perl5/vendor_perl/5.8.1/i586-linux-thread-multi
    /usr/lib/perl5/vendor_perl/5.8.1
    /usr/lib/perl5/vendor_perl
    gary artim, Feb 6, 2004
    #1
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. gary artim

    recordset error/perl messages

    gary artim, Feb 6, 2004, in forum: Perl
    Replies:
    0
    Views:
    488
    gary artim
    Feb 6, 2004
  2. Hung Huynh
    Replies:
    8
    Views:
    290
    Bob Barrows
    Sep 24, 2003
  3. Vince Heuring
    Replies:
    1
    Views:
    196
    James Willmore
    Oct 27, 2003
  4. Justin C
    Replies:
    6
    Views:
    131
    sreservoir
    Feb 19, 2010
  5. laredotornado

    Getting Perl to print out error messages

    laredotornado, Sep 21, 2011, in forum: Perl Misc
    Replies:
    8
    Views:
    308
    Rainer Weikusat
    Sep 25, 2011
Loading...

Share This Page