sub prvGetPrefsList
{
	 my ( $theWebTopic ) = @_;

	 my $topicName = $theWebTopic;
	 my $webName = $TWiki::mainWebname;
	 $topicName =~ s/([^\.]*)\.(.*)/$2/go;	 # "Web.TopicName" to "TopicName"
	 if( $2 ) {
		  $webName = $1;
	 }

The presence of the g in s/// means that $2 is not available for the if statement. Solution for me was simply to remove the g, which appears at best redundant in this case.

-- JohnTalintyre - 23 Feb 2001

Thanks for pointing out. Fix commited to TWikiAlphaRelease.

-- PeterThoeny - 24 Feb 2001