| … | |
… | |
| 48 | next if /^#/; |
48 | next if /^#/; |
| 49 | next unless /\S/; |
49 | next unless /\S/; |
| 50 | s/^\s*//; |
50 | s/^\s*//; |
| 51 | s/\s*$//; |
51 | s/\s*$//; |
| 52 | |
52 | |
| 53 | my @fields = split /\s*,\s*/; |
53 | my @fields = split /\s*,\s*/, $_, -1; # -1 == don't delete empty trailing fields |
| 54 | my $fields = @fields; |
54 | my $fields = @fields; |
| 55 | if ($fields < $MIN_FIELDS) { |
55 | if ($fields < $MIN_FIELDS) { |
| 56 | warn "Skipped invalid line $. of classlist '$file': expected at least $MIN_FIELDS fields, got $fields fields.\n"; |
56 | warn "Skipped invalid line $. of classlist '$file': expected at least $MIN_FIELDS fields, got $fields fields.\n"; |
| 57 | next; |
57 | next; |
| 58 | } |
58 | } |
Parent Directory
| 
Revision Log
| 
Patch