Index: /trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm
===================================================================
--- /trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm	(revision 3839)
+++ /trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm	(revision 3840)
@@ -1,5 +1,5 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.14 2005-05-04 21:46:13 jhoblitt Exp $
+# $Id: Config.pm,v 1.15 2005-05-04 21:48:53 jhoblitt Exp $
 
 package PS::IPP::Metadata::Config;
@@ -256,11 +256,13 @@
 
 typedef:
-    <skip:'[ \t\r]*'> name typedef_type <commit> name(s) comment(?) "\n"
+    <skip:'[ \t\r]*'> name typedef_type <commit> word(s) comment(?) "\n"
         {
             my $type = $thisparser->{local}{typedef}{ $item{typedef_type} };
 
-            unless ( scalar @{ $item{'name(s)'} } == $type->{length} ) {
+            unless ( scalar @{ $item{'word(s)'} } == $type->{length} ) {
+                my $expect = $type->{length};
+                my $got = scalar @{ $item{'word(s)'} };
                 carp "\"$item{name} $item{typedef_type}\""
-                    . " does not have enough fields";
+                    . " does not have enough fields, epected: $expect, got: $got";
                 $return = undef;
             } else {
@@ -272,5 +274,5 @@
                         class   => 'scalar',
                         type    => 'STR',
-                        value   => $item{'name(s)'}[$i],
+                        value   => $item{'word(s)'}[$i],
                     };
 
@@ -397,4 +399,7 @@
     /(?:\S[^#\n]*)?[^#\n ]/
 
+word:
+    /(?:[^#\s\n]+)/
+
 to_end_of_line:
     /[^\n]*/