11 $line =~ /^\/\
*\
*/ and do {
16 $line =~ /^\s*\*\// and undef $error_data;
18 $doc_start and $line =~ /^\s*\*\s*QmiProtocolError:/ and do {
25 $line =~ /^.*@([A-Z0-9_]+): ([A-z0-9 ]+)[.].*$/ and push @errors, [ $1, $2 ];
28 @errors > 0 or die "No data found\n";
32 QmiProtocolError code;
36 foreach my $error (@errors) {
37 print "\t{ ".$error->[0].", \"".$error->[1]."\" },\n";