From c952b6e37f1d4e2c160cad0f57c195030ae84ebf Mon Sep 17 00:00:00 2001 From: martinahansen Date: Tue, 1 Jul 2008 08:34:26 +0000 Subject: [PATCH] more wikis git-svn-id: http://biopieces.googlecode.com/svn/trunk@98 74ccb610-7750-0410-82ae-013aeee3265d --- code_perl/Maasha/Gwiki.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code_perl/Maasha/Gwiki.pm b/code_perl/Maasha/Gwiki.pm index 5f47119..452fc38 100644 --- a/code_perl/Maasha/Gwiki.pm +++ b/code_perl/Maasha/Gwiki.pm @@ -94,8 +94,8 @@ sub gwiki2ascii $line =~ s/\s+/ /g; $line =~ tr/`//d; $line =~ s/\[([^\]]+?)\]/&text_underline($1)/ge; - $line =~ s/\*([^\*]+?)\*/&text_bold($1)/ge if $line =~ /(^| )\*[^\*]+?\*( |$)/; - $line =~ s/_([^_]+?)_/&text_underline($1)/ge if $line =~ /(^| )_[^_]+?_( |$)/; + $line =~ s/\*(\w+)\*/&text_bold($1)/ge if $line =~ /(^| )\*\w+\*( |$)/; + $line =~ s/_(\w+)_/&text_underline($1)/ge if $line =~ /(^| )_\w+_( |$)/; push @lines, $_ foreach &Maasha::Common::wrap_line( $line, 80 ); } -- 2.39.5