From: David Bremner <bremner@unb.ca>
Date: Sat, 19 Jul 2008 22:40:41 +0000 (-0300)
Subject: add neccessary but not sufficient regex
X-Git-Tag: 0.1~43
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=9dc8901211f9459d16e7d3b54eaf2295a9d01554;p=ikiwiki.git

add neccessary but not sufficient regex
---

diff --git a/Convert/YText.pm b/Convert/YText.pm
index e8ea42abe..21955a87b 100644
--- a/Convert/YText.pm
+++ b/Convert/YText.pm
@@ -57,6 +57,9 @@ a regular character. The character '.' also seems mostly permissable.
 =cut
 
 our $digit_string="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+-.";
+
+our $valid_rex=qr{[A-Za-z0-9\+\-\.\=\_\~]+};
+
 our @digits=split "",$digit_string;
 
 sub encode_num($){