From 3bfd23341438ea4cbf59eef614e354bb66b22a84 Mon Sep 17 00:00:00 2001
From: andreas_kupries <akupries@shaw.ca>
Date: Fri, 6 Oct 2006 00:22:30 +0000
Subject: 	* library/tm.tcl: Fixed bug in TIP #189 implementation, now 
   allowing '_' in module names.

---
 ChangeLog      | 5 +++++
 library/tm.tcl | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 5eec923..f9e4859 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-05  Andreas Kupries  <andreask@activestate.com>
+
+	* library/tm.tcl: Fixed bug in TIP #189 implementation, now
+	  allowing '_' in module names.
+
 2006-10-05  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* generic/tcl.h: note limitation on changing Tcl_UniChar size
diff --git a/library/tm.tcl b/library/tm.tcl
index b877cbb..31779ae 100644
--- a/library/tm.tcl
+++ b/library/tm.tcl
@@ -53,7 +53,7 @@ namespace eval ::tcl::tm {
 
     # The regex pattern a file name has to match to make it a Tcl Module.
 
-    set pkgpattern {^([[:alpha:]][:[:alnum:]]*)-([[:digit:]].*)[.]tm$}
+    set pkgpattern {^([_[:alpha:]][:_[:alnum:]]*)-([[:digit:]].*)[.]tm$}
 
     # Export the public API
 
-- 
cgit v0.12