- if ( $line =~ /^UNIMPL/ )
- {
- @fields = split(/,/,$line);
- $_ = $fields[0];
- s/^UNIMPL//;
- s/ *\(\"// ;
- s/\"//;
- $command = $_;
- $_=$fields[5];
- s/\"//;
- s/\"\)//;
- s/^ *//;
- chomp;
- $description = $_;
- print "\@item $command\n$description\n\n";
- }
+ if ( $line =~ /^UNIMPL_CMD/ )
+ {
+ @fields = split(/,/,$line);
+ $_ = $fields[0];
+ s/^UNIMPL_CMD//;
+ s/ *\(\"// ;
+ s/\"//;
+ $command = $_;
+ $_=$fields[1];
+ s/^ *\"//;
+ s/\"\)//;
+ chomp;
+ $description = $_;
+ print "\@item $command\n$description\n\n";
+ }