Smells of memory corruption. Not good.
If you can turn that script into a patch to the t/longs.t that
demonstrates the problem (just to save me some time), I will attempt
to fix it asap.
Just send it direct to me along with a summary of your configuration
(perl -V output, DBI version, Oracle client and server version, etc).
Thanks.
Tim.
On Tue, Mar 25, 2003 at 11:25:59AM -0700, Ken Miller wrote:
> A bit more information. I'm wondering if something is broken with my perl
> installation. Here's a sample program I wrote to test out the fetching of
> longs from the sessions table:
>
> #!/usr/local/bin/perl -w
>
> use strict;
> use DBI;
>
> my $dbh = DBI->connect( 'dbi:Oracle:SSS', 'websec', 'websec',
> { LongReadLen => 256000,
> RaiseError => 1 } );
>
> $| = 1;
>
> for( ;; ) {
> my $stmt = $dbh->prepare_cached(qq{ select a_session from sessions for
> update});
> $stmt->execute;
> while( my( $x ) = $stmt->fetchrow_array ) {
> print length( $x ), "\n";
> }
> print "\n";
> $stmt->finish;
> }
>
> If LongReadLen is set to a value smaller then the smallest LONG in the
> sessions table, I get this error:
>
> Bad hash at ./test line 15.
>
> Erk! That's an internal perl error. If LongReadLen is greater than the
> longest long, I see no error. The script runs forever, gladly fetching the
> sessions with no errors.
>
> Now, what makes this even more interesting is that when I trace the above
> with LongReadLen set to a small value, I don't get the 'Bad hash' error.
> Here's the log at trace level 1:
>
> pink:/home/miller/src> ./test
> DBI::db=HASH(0x8261690) trace level set to 1 in DBI 1.35-nothread
> 1 <- FETCH('CachedKids')= undef at DBI.pm line 1410
> 1 <- STORE('CachedKids' HASH(0x81cae14))= 1 at DBI.pm line 1411
> 1 <- prepare(' select a_session from sessions for update' undef)=
> DBI::st=HASH(0x826178c) at DBI.pm line 1423
> <- prepare_cached(' select a_session from sessions for update')=
> DBI::st=HASH(0x826178c) at test line 15
> <- execute= '0E0' at test line 16
> !! ERROR: 24345 'ORA-24345: A Truncation or null fetch error occurred
> (DBD ERROR: ORA-01406 error on field 1 of 1, ora_type 8, LongReadLen too
> small and/or LongTruncOk not set)'
> <- fetchrow_array= ( ) [0 items] row1 at test line 17
> Bad hash at ./test line 17.
> error: 24345 'ORA-24345: A Truncation or null fetch error occurred
> (DBD ERROR: ORA-01406 error on field 1 of 1, ora_type 8, LongReadLen too
> small and/or LongTruncOk not set)'
> <- DESTROY= undef
> error: 24345 'ORA-24345: A Truncation or null fetch error occurred
> (DBD ERROR: ORA-01406 error on field 1 of 1, ora_type 8, LongReadLen too
> small and/or LongTruncOk not set)'
> <- DESTROY= undef
>
> This is *very* strange....
>
> -klm.
>
> > -----Original Message-----
> > From: Ken Miller [mailto:[EMAIL PROTECTED]
> > Sent: Tuesday, March 25, 2003 9:56 AM
> > To: Dbi-Users
> > Subject: Problem with Apache::Session and LongReadLen
> >
> >
> > I've got a strange problem with Apache::Session, and DBD::Oracle:
> >
> > [Tue Mar 25 10:01:03 2003] [error] Invoking view:
> > /security/list-users.html
> > --> DBH LONG READ LEN: 256000 <--
> > --> STATEMENT LONG READ LEN: 256000 <--
> > [Tue Mar 25 10:01:05 2003] [error] Error trying to access session:
> > DBD::Oracle::st fetchrow_arrayref failed: ORA-24345: A Truncation or null
> > fetch error occurred (DBD ERROR: ORA-01406 error on field 1 of 1, ora_type
> > 8, LongReadLen too small and/or LongTruncOk not set) [for statement ``
> > SELECT a_session FROM sessions WHERE id = ? FOR UPDATE''
> > with params: :p1='eb9d7cb85362e686ed6dacb5bd9caea8']) at
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Oracle.pm line
> > 83.
> >
> > I looked at the session in question I was tring to fetch, and
> > found that the
> > length of the session was 8718 bytes. 8718 is a *lot* less than 256000
> > bytes, so there should not have been an error.
> >
> > The strange thing is that this error is not consistent. I can
> > populate the
> > session with a large set of data, access a few other pages (which in turn
> > causes the session to be loaded), and then it fails. Or, it can
> > fail on the
> > next request after loading the session.
> >
> > You can see by the --> <-- delimited comments above that both the database
> > handle and statement handle have been set to 256000 bytes. This
> > only seems
> > to slightly help the problem, in that the error doesn't occur immediately
> > after the session load.
> >
> > Anyone have any ideas?
> >
> > I'm running perl 5.6.1, with current (stable) versions of Apache::Session,
> > DBI, and DBD::Oracle. I'm communicating with Oracle 8.1.7. I've also
> > included a trace below showing the error, with the LongReadLen=256000.
> >
> > Cheers!
> >
> > -klm.
> >
> > -> FETCH for DBD::Oracle::st (DBI::st=HASH(0x999c810)~0x999a738
> > 'Active')
> > .. FETCH DBI::st=HASH(0x999a738) 'Active' = ''
> > <- FETCH= '' at
> > /home/miller/lib/perl5/site_perl/5.6.1/i586-linux/DBI.pm
> > line 1416 via /home/miller/lib/perl5/s\
> > ite_perl/5.6.1/Apache/Session/Store/Oracle.pm line 71
> > -> trace in DBD::_::common for DBD::Oracle::st
> > (DBI::st=HASH(0x999c810)~0x999a738 10 '/tmp/dbi.trc')
> > <- trace= 10 at
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Oracle.pm line
> > 77 via /home/miller/\
> > lib/perl5/site_perl/5.6.1/Apache/Session.pm line 481
> > <- FETCH= 256000 ('LongReadLen' from cache) at
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Orac\
> > le.pm line 79 via /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session.pm
> > line 481
> > -> STORE for DBD::Oracle::st (DBI::st=HASH(0x999a738)~INNER
> > 'LongReadLen' 256000)
> > STORE DBI::st=HASH(0x999a738) 'LongReadLen' => 256000
> > <- STORE= 1 at
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Oracle.pm line
> > 80 via /home/miller/l\
> > ib/perl5/site_perl/5.6.1/Apache/Session.pm line 481
> > -> bind_param for DBD::Oracle::st (DBI::st=HASH(0x999c810)~0x999a738 1
> > '772d2e42c49f776e89906b6f4f30a3c7')
> > bind :p1 <== '772d2e42c49f776e89906b6f4f30a3c7' (type 0)
> > bind :p1 <== '772d2e42c49f776e89906b6f4f30a3c7' (size
> > 32/33/0, ptype
> > 7, otype 1)
> > bind :p1 <== '772d2e42c49f776e89906b6f4f30a3c7' (size
> > 32/32, otype 1,
> > indp 0, at_exec 1)
> > bind :p1 done with ftype 1
> > <- bind_param= 1 at
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Oracle.pm line
> > 82 via /home/mil\
> > ler/lib/perl5/site_perl/5.6.1/Apache/Session.pm line 481
> > -> execute for DBD::Oracle::st (DBI::st=HASH(0x999c810)~0x999a738)
> > dbd_st_execute SELECT (out0, lob0)...
> > in ':p1' [0,0]: len 32, ind 0
> > OCIStmtExecute(0x94ab4fc,0x99a1d08,0x94ab724,0,0,(nil),(nil),0)=SUCCESS
> > OCIAttrGet(0x99a1d08,OCI_HTYPE_STMT,0xbfffed06,(nil),10,0x94ab724)=SUCCESS
> > dbd_st_execute SELECT returned (SUCCESS, rpc0, fn4, out0)
> > <- execute= '0E0' at
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Oracle.pm line
> > 83 via /home/mi\
> > ller/lib/perl5/site_perl/5.6.1/Apache/Session.pm line 481
> > -> fetchrow_arrayref for DBD::Oracle::st
> > (DBI::st=HASH(0x999c810)~0x999a738)
> > dbd_st_fetch 1 fields...
> > OCIStmtFetch(0x99a1d08,0x94ab724,1,2,0)=SUCCESS_WITH_INFO
> > dbd_st_fetch 1 fields SUCCESS_WITH_INFO
> > OCIErrorGet(0x94ab724,1,"<NULL>",0xbfffe810,"ORA-24345: A
> > Truncation or null
> > fetch error occurred
> > ",1024,2)=SUCCESS
> > OCIErrorGet after ORA-01406 error on field 1 of 1, ora_type 8,
> > LongReadLen too small and/or LongTruncOk not set\
> > (er1:ok): -1, 24345: ORA-24345: A Truncation or null fetch error occurred
> >
> > OCIErrorGet(0x94ab724,2,"<NULL>",0xbfffe810,"ORA-24345: A
> > Truncation or null
> > fetch error occurred
> > ",1024,2)=NO_DATA
> > 0 (rc=1406):
> > 'BQQDAAAACgoGbWlsbGVyAAAAB3VzZXJfaWQKAU4AAAAUbXVzdF9jaGFuZ2VfcGFzc
> > 3dvcmQKAzQ
> > 4
> > MAAAABJzZXNzaW9uX3ZhbGlkX3RpbWUKCktlbiBNaWxsZXIAAAAJdXNlcl9uYW1lBA
> > MAAAACCgE1
> > AAAADGFjY2Vzc19sZXZlbAQCAAAAyQoEMDM1MwoEMDQyNwoEMDQ3MAoEMDU3MAoEMD
> > cwMAoEMDcw
> > NQoEMDcxMgoEMDczMQoEMDczNAoEMTA1MQoEMTA1MgoEMTEyNQoEMTEzMAoEMTE0OA
> > oEMTE1NgoE
> > MTE2NgoEMTE2OAoEMTE3MQoEMTE5MgoEMTE5NAoEMTE5OAoEMTIwMgoEMTIwNAoEMT
> > IxNgoEMTIx
> > OAoEMTIyMA...'
> > !! ERROR: 24345 'ORA-24345: A Truncation or null fetch error occurred
> > (DBD ERROR: ORA-01406 error on field 1 of\
> > 1, ora_type 8, LongReadLen too small and/or LongTruncOk not set)'
> > <- fetchrow_arrayref= undef row1 at
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Oracle
> > .pm line \
> > 85 via /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session.pm line 481
> > >> FETCH DISPATCH (DBI::st=HASH(0x999a738) rc2/1 @2 g0 ima404
> > pid#14891) at /home/miller/lib/perl5/site_p\
> > erl/5.6.1/Apache/Session/Store/Oracle.pm line 85 via
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session.pm line \
> > 481
> > 1 -> FETCH for DBD::Oracle::st (DBI::st=HASH(0x999a738)~INNER
> > 'ParamValues')
> > error: 24345 'ORA-24345: A Truncation or null fetch error occurred
> > (DBD ERROR: ORA-01406 error on field 1 of\
> > 1, ora_type 8, LongReadLen too small and/or LongTruncOk not set)'
> > 1 <- FETCH= HASH(0x9a063b0)1keys at
> > /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Oracle.pm line
> > 85\
> > via /home/miller/lib/perl5/site_perl/5.6.1/Apache/Session.pm line 481
> >
> >
> > -------------------------------------------
> > Kenneth L. Miller
> > Consultant, Shetland Software Services Inc.
> > Office: 403.750.1790
> > Cell: 403.680.3785
> >
> >
> >
>
