From 9dc8901211f9459d16e7d3b54eaf2295a9d01554 Mon Sep 17 00:00:00 2001
From: David Bremner <bremner@unb.ca>
Date: Sat, 19 Jul 2008 19:40:41 -0300
Subject: [PATCH] add neccessary but not sufficient regex

---
 Convert/YText.pm | 3 +++
 1 file changed, 3 insertions(+)

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($){
-- 
2.39.5