--- TWiki.pm~ 2004-09-19 18:57:23.000000000 +0200 +++ TWiki.pm 2004-10-09 21:57:52.000000000 +0200 @@ -2454,7 +2454,7 @@ @list = split( /\n/, handleCommonTags( $t, $topicname, $web ) ); } - @list = grep { /(<\/?pre>)|($regex{headerPatternDa})|($regex{headerPatternSp})|($regex{headerPatternHt})/ } @list; + @list = grep { /(<\/?pre>)|($regex{headerPatternDa})|($regex{headerPatternSp})|($regex{headerPatternHt})/o } @list; my $insidePre = 0; my $i = 0; my $tabs = ""; @@ -2508,9 +2508,9 @@ # Prevent WikiLinks $line =~ s/\[\[.*?\]\[(.*?)\]\]/$1/g; # '[[...][...]]' $line =~ s/\[\[(.*?)\]\]/$1/ge; # '[[...]]' - $line =~ s/([\s\(])($regex{webNameRegex})\.($regex{wikiWordRegex})/$1$3/g; # 'Web.TopicName' - $line =~ s/([\s\(])($regex{wikiWordRegex})/$1$2/g; # 'TopicName' - $line =~ s/([\s\(])($regex{abbrevRegex})/$1$2/g; # 'TLA' + $line =~ s/([\s\(])($regex{webNameRegex})\.($regex{wikiWordRegex})/$1$3/go; # 'Web.TopicName' + $line =~ s/([\s\(])($regex{wikiWordRegex})/$1$2/go; # 'TopicName' + $line =~ s/([\s\(])($regex{abbrevRegex})/$1$2/go; # 'TLA' # create linked bullet item, using a relative link to anchor $line = "$tabs* $line"; $result .= "\n$line";