From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Tue, 1 Jul 2008 08:34:26 +0000 (+0000)
Subject: more wikis
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c952b6e37f1d4e2c160cad0f57c195030ae84ebf;p=biopieces.git

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 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 );
             }