diff options
| author | andreas_kupries <akupries@shaw.ca> | 2006-10-06 00:22:30 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2006-10-06 00:22:30 (GMT) |
| commit | 3bfd23341438ea4cbf59eef614e354bb66b22a84 (patch) | |
| tree | e3b9694c182f607593ee12cc6aeba8e28d7d231b /library | |
| parent | d78a8ea8c98971dec54e3bf5c738432029bb7e61 (diff) | |
| download | tcl-3bfd23341438ea4cbf59eef614e354bb66b22a84.zip tcl-3bfd23341438ea4cbf59eef614e354bb66b22a84.tar.gz tcl-3bfd23341438ea4cbf59eef614e354bb66b22a84.tar.bz2 | |
* library/tm.tcl: Fixed bug in TIP #189 implementation, now
allowing '_' in module names.
Diffstat (limited to 'library')
| -rw-r--r-- | library/tm.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |