On Wed, Aug 30, 2006 at 10:15:01PM -0700, S. Kiehn wrote:
> Thanks Hans for the response. I made the patch, now I get new errors:
>
> 'Can't call method "can" on an undefined value at
> /usr/share/perl5/Apache/Session/Wrapper.pm line 650.'
Bug in ASW. It's fixed by the attached patch.
(I put the patch together a few months ago; there may be a better way but I
don't remember any of the context anymore.)
hdp.
--- lib/Apache/Session/Wrapper.pm.orig 2006-03-28 14:18:35.000000000 -0500
+++ lib/Apache/Session/Wrapper.pm 2006-03-28 14:24:54.000000000 -0500
@@ -647,7 +647,11 @@
{
if ( $header_object->can($meth) )
{
- if ( $header_object->$meth->can('add') )
+ # use eval because for a given $header_object, ->can($meth)
+ # may return true without it being true that ->$meth will
+ # return an object (or even a defined value),
+ # e.g. HTML::Mason::FakeApache
+ if ( eval { $header_object->$meth->can('add') } )
{
$header_object->$meth->add( 'Set-Cookie' => $cookie );
}
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Mason-users mailing list
Mason-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-users
