Re: Apache::Session in PostgreSQL - Mailing list 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];
  }