equal
deleted
inserted
replaced
166 |
166 |
167 print "<$tagName"; |
167 print "<$tagName"; |
168 |
168 |
169 foreach my $attr ( |
169 foreach my $attr ( |
170 sort { |
170 sort { |
171 my $order = "name long-name tech_domain level span schema levels filter introduced deprecated purpose class plugin origin-model bldFile mrp version priority"; |
171 my $order = "name long-name tech_domain level span schema levels filter introduced deprecated purpose class plugin origin-model bldFile proFile qmakeArgs mrp version priority"; |
172 my $ixA = index $order, $a; |
172 my $ixA = index $order, $a; |
173 my $ixB = index $order, $b; |
173 my $ixB = index $order, $b; |
174 die "$a $b" if $ixA + $ixB == -2; |
174 die "$a $b" if $ixA + $ixB == -2; |
175 $ixA - $ixB; |
175 $ixA - $ixB; |
176 } |
176 } |