more wikis

git-svn-id: http://biopieces.googlecode.com/svn/trunk@98 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Gwiki.pm b/code_perl/Maasha/Gwiki.pm
index 5f471195e6aeb15e4a0dceaa1eefda32836c0dee..452fc386e1425b97ed976be1d48198b08a7acd91 100644 (file)
--- 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 );
             }