UseModWiki소스수정/이모티콘패턴

이모티콘 패턴 수정

• :Palm 등과 같이 적었을때 ":P" 부분이 이모티콘으로 바뀌어버리는 등의 문제가 있었다.
• PalmWiki 의 jmjeong 님의 패치를 적용

sub EmoticonSubst {
    ...
    # 몇몇 곳에 [^A-z] 를 추가한다.
        $txt =~ s/\s\^[oO_\-]*\^[;]*/$e2/g;
        $txt =~ s/\s-[_]+-[;]*/$e7/g;
        $txt =~ s/\so\.O[^A-z]/$e5/g;
        $txt =~ s/\s\*\.\*/$e5/g;
        $txt =~ s/\s\=\.\=[;]*/$e7/g;
        $txt =~ s/\s\:-[sS][^A-z]/$e7/g;

        $txt =~ s/\s\:[-]*D[^A-z]/$e2/g;
        $txt =~ s/\s\:[-]*\([^A-z]/$e3/g;
        $txt =~ s/\s\:[-]*\)[^A-z]/$e4/g;
        $txt =~ s/\s\:[-]*[oO][^A-z]/$e5/g;
        $txt =~ s/\s\:[-]*[pP][^A-z]/$e6/g;
        $txt =~ s/\s\;[-]*\)[^A-z]/$e8/g;
    }

    return $txt;
}