From: <de...@de...> - 2010-02-26 02:57:17
|
Author: IanKluft Date: 2010-02-25 20:57:10 -0600 (Thu, 25 Feb 2010) New Revision: 18357 Trac url: http://develop.twiki.org/trac/changeset/18357 Modified: twiki/trunk/TWikiUserMappingContrib/lib/TWiki/Users/TWikiUserMapping.pm Log: Item6401: add UNIVERSAL::isa() check to fix broken subclassing Modified: twiki/trunk/TWikiUserMappingContrib/lib/TWiki/Users/TWikiUserMapping.pm =================================================================== --- twiki/trunk/TWikiUserMappingContrib/lib/TWiki/Users/TWikiUserMapping.pm 2010-02-25 04:25:31 UTC (rev 18356) +++ twiki/trunk/TWikiUserMappingContrib/lib/TWiki/Users/TWikiUserMapping.pm 2010-02-26 02:57:10 UTC (rev 18357) @@ -977,7 +977,9 @@ # get a list of groups defined in this TWiki sub _getListOfGroups { my $this = shift; - ASSERT(ref($this) eq 'TWiki::Users::TWikiUserMapping') if DEBUG; + ASSERT(ref($this) eq 'TWiki::Users::TWikiUserMapping' + or ( ref($this) and $this->isa('TWiki::Users::TWikiUserMapping'))) + if DEBUG; unless( $this->{groupsList} ) { my $users = $this->{session}->{users}; |