From: | Victor Manuel Jaquez Leal <ceyusa(at)linux1(dot)coral(dot)com(dot)mx> |
---|---|
To: | pgsql-general(at)postgresql(dot)org |
Subject: | Re: Apache::Session in PostgreSQL |
Date: | 2000-04-02 17:44:49 |
Message-ID: | Pine.LNX.3.96.1000402124012.4084C-100000@linux1.coral.com.mx |
Views: | Raw Message | Whole Thread | Download mbox | Resend email |
Thread: | |
Lists: | pgsql-general |
Hi Again!
Thanks for all the people that helped me, I really appreciate it.
Finnally I spent my last saturday night trying to patch the DBIStore perl
module and I got this:
(I don't have probe it with non-scalar variables, so isn't a bullet-proof
patch yet... 8-)...
*** DBIStore.pm.old Sat Apr 1 20:03:48 2000
--- DBIStore.pm Sat Apr 1 20:03:12 2000
***************
*** 135,139 ****
}
! my $serialized = nfreeze $session->{data};
$self->{insert_sth}->bind_param(1, $session->{data}->{_session_id});
--- 135,139 ----
}
! my $serialized = pack "u", nfreeze $session->{data};
$self->{insert_sth}->bind_param(1, $session->{data}->{_session_id});
***************
*** 160,164 ****
! my $serialized = nfreeze $session->{data};
$self->{update_sth}->bind_param(1, length $serialized);
--- 160,164 ----
! my $serialized = pack "u", nfreeze $session->{data};
$self->{update_sth}->bind_param(1, length $serialized);
***************
*** 195,199 ****
$self->{materialize_sth}->finish;
! $session->{data} = thaw $results->[0];
}
--- 195,199 ----
$self->{materialize_sth}->finish;
! $session->{data} = thaw unpack "u", $results->[0];
}
From | Date | Subject | |
---|---|---|---|
Next Message | Carsten Huettl | 2000-04-02 19:14:57 | Re: Digest mode? |
Previous Message | Michael Black | 2000-04-02 02:12:33 | Before and After Triggers? |