From c952b6e37f1d4e2c160cad0f57c195030ae84ebf Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
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