Widen idea of a valid Debian package name

diff --git a/aptquery.sml b/aptquery.sml
index bf0ec6a..ba0e761 100644 (file)
--- a/aptquery.sml
+++ b/aptquery.sml
@@ -3,7 +3,7 @@ struct
 
 type info = { name : string, section : string, descr : string, installed : bool }
 
-fun validName s = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"_" orelse ch = #"-") s
+fun validName s = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"_" orelse ch = #"-" orelse ch = #".") s
                  andalso (size s > 0 andalso String.sub (s, 0) <> #"-")
                           
 fun query name =