Index: cudf-0.7/cudf_type_lexer.mll
===================================================================
--- cudf-0.7.orig/cudf_type_lexer.mll
+++ cudf-0.7/cudf_type_lexer.mll
@@ -24,7 +24,7 @@ let digit = [ '0' - '9' ]
 let blank = [ ' ' '\t' ]
 let blanks = blank+
 let ident = lower_letter (lower_letter | digit | '-')*
-let pkgname = (letter | digit | ['-' '+' '.' '/' '@' '(' ')' '%'])+
+let pkgname = (letter | digit | ['-' '+' '.' '/' '@' '(' ')' '%' '_'])+
 
 rule token_cudf = parse
   | "true!"		{ VPKGTRUE }