fwd: Re: LWPng-alpha 0.22 problems

Roy T. Fielding (fielding@kiwi.ics.uci.edu)
Tue, 07 Jul 1998 17:42:43 -0700 

Sent to the request address by mistake...

------- Forwarded Message

To: Blair Zajac <blair@gps.caltech.edu>
Subject: Re: LWPng-alpha 0.22 problems
References: <199807071856.LAA02987@gobi.gps.caltech.edu>
From: Gisle Aas <gisle@aas.no>
Date: 07 Jul 1998 23:39:10 +0200
In-Reply-To: Blair Zajac's message of "Tue, 7 Jul 1998 11:56:52 -0700 (PDT)"
Message-ID: <m3n2alz6gx.fsf@furu.g.aas.no>

Blair Zajac <blair@gps.caltech.edu> writes:

> When I do a make test in the WebFS::FileCopy package using LWPng-alpha 0.22
> I get the following error:
> 
> t/01copy............Can't locate auto/LWP/Conn/_Connect/activate.al in @INC
> (@INC contains: blib/arch blib/lib
> /home/blair/perl5-nothread-70/lib/5.00470/sun4-solaris
> /home/blair/perl5-nothread-70/lib/5.00470/share
> /home/blair/perl5-nothread-70/lib/5.00470/sun4-solaris
> /home/blair/perl5-nothread-70/lib/5.00470/share
> /home/blair/perl5-nothread-70/lib/site_perl/5.00470/sun4-solaris
> /home/blair/perl5-nothread-70/lib/site_perl/5.00470/share .
> /home/blair/perl5-nothread-70/lib/5.00470/sun4-solaris
> /home/blair/perl5-nothread-70/lib/5.00470/share
> /home/blair/perl5-nothread-70/lib/site_perl/5.00470/sun4-solaris
> /home/blair/perl5-nothread-70/lib/site_perl/5.00470/share .) at
> /home/blair/perl5-nothread-70/lib/site_perl/5.00470/share/LWP/Server.pm line
> 222

[...]

> Should LWP::Conn::_Connect have an activate method?

Yup.

Try this patch:

Index: lib/LWP/Conn/_Connect.pm
===================================================================
RCS file: /home/cvs/aas/perl/mods/libwww-perl-2/lib/LWP/Conn/_Connect.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -u -r1.5 -r1.6
--- _Connect.pm	1998/07/05 14:34:38	1.5
+++ _Connect.pm	1998/07/07 21:36:55	1.6
@@ -1,6 +1,6 @@
 package LWP::Conn::_Connect;
 
-# $Id: _Connect.pm,v 1.5 1998/07/05 14:34:38 aas Exp $
+# $Id: _Connect.pm,v 1.6 1998/07/07 21:36:55 aas Exp $
 
 # Copyright 1997-1998 Gisle Aas.
 #
@@ -199,6 +199,22 @@
     $self->close;
     bless $self, delete *$self->{'lwp_connected_class'};
     $self->connect_failed($msg, delete *$self->{'lwp_opaque'});
+}
+
+# These two methods might be called by the manager
+sub activate
+{  # ignore
+}
+
+sub stop
+{
+    my $self = shift;
+    delete *$self->{'lwp_other_addrs'};
+    delete *$self->{'lwp_timeout'};
+    mainloop->forget($self);
+    $self->close;
+    bless $self, delete *$self->{'lwp_connected_class'};
+    $self->connect_failed("Stopped", delete *$self->{'lwp_opaque'});
 }
 
 1;


------- End of Forwarded Message