Bug #7575 for PlRPC: Child died: Storable binary image v21.86 more recent than I am (v2.6)

[guest - Wed Sep 8 05:07:25 2004]: I had the exact same error, Linux, fedora 2, even with the v21.86 version stamp. This is Storable complaining about a pile of data it can't thaw because it doesn't recognize the contents. The reason it doesn't recognize the contents is because the contents have not been decrypted on the server side. Looks like the cipher moved around, that or the comm object moved. The quick fix is to move the cipher setup in the config file in crypt.t up one line. However, that fix doesn't really use different ciphers like the test is supposed to, ie it passes the test but doesn't fix the problem. The user cipher is never used. The comm object holds the effective cipher now, but the test code, and the server code only update the server object. Here's a patch for part of the t tests. This is where they try to connect with a user that has a special cipher, different from the host cipher. The first part of the chat takes place with the host cipher, but after the accepting welcome message is sent, the remainder of the dialogue is under the user cipher. This patch is at the point where the client side switches ciphers at the same time as the server switches ciphers. Again, the correct cipher object is in the comm object, not the client/server object. --- t/lib.pl.orig 1999-01-12 16:35:29.000000000 -0500 +++ t/lib.pl 2004-09-19 21:50:00.390036776 -0400 @@ -22,7 +22,7 @@ # Making a new connection Test($client = eval { RPC::PlClient->new(@_) }) or print "Failed to make second connection: $@\n"; - if ($key) { $client->{'cipher'} = $key } + if ($key) { $client->{'comm'}->{'cipher'} = $key } # Creating a calculator object my $calculator = eval { $client->ClientObject('Calculator', 'new') }; -----------------------snip!!! Here's a patch for the Server. Again, my only addition to the code is to make sure the correct cipher is updated. --- lib/RPC/PlServer.pm.orig 2004-07-19 03:52:23.000000000 -0400 +++ lib/RPC/PlServer.pm 2004-09-19 21:48:45.435431608 -0400 @@ -138,7 +138,7 @@ if ($client = $self->{'client'}) { if (my $cipher = $client->{'cipher'}) { $self->Debug("Host encryption: %s", $cipher); - $self->{'cipher'} = $cipher; + $comm->{'cipher'} = $self->{'cipher'} = $cipher; } } @@ -174,7 +174,7 @@ if (my $au = $self->{'authorized_user'}) { if (ref($au) && (my $cipher = $au->{'cipher'})) { $self->Debug("User encryption: %s", $cipher); - $self->{'cipher'} = $cipher; + $comm->{'cipher'} = $self->{'cipher'} = $cipher; } } Show quoted text