--- toast 2003/08/26 18:44:01 1.183 +++ toast 2003/08/26 18:47:29 1.184 @@ -1317,7 +1317,7 @@ { my($name, $version) = @_; defined($name) || error; - $name =~ /^\w+$/ || error("invalid package name: $name"); + $name =~ /^[\w-]+$/ || error("invalid package name: $name"); my($lcname) = lc($name); local(*XML, $_);