Skip to content
Snippets Groups Projects

Adding check for duplicate non-case-sensitive part names that could cause...

2 unresolved threads
1 file
+ 2
2
Compare changes
  • Side-by-side
  • Inline
@@ -753,7 +753,7 @@ for($kk=0;$kk<$partCnt;$kk++)
and not exists $noCode{$partType[$kk]}
and not exists $noCode{ $seen{ lc $xpartName[$kk] }[1] } )
{
push(@duplicates, "First (part, type) is: ($xpartName[$kk], $partType[$kk]),".
push(@duplicates, "\tFirst (part, type) is: ($xpartName[$kk], $partType[$kk]),".
" other part is ($seen{ lc $xpartName[$kk]}[0], $seen{ lc $xpartName[$kk]}[1])\n");
}
else
@@ -769,7 +769,7 @@ if ( 0+@duplicates > 0) #If we found 1 or more issues
"Two parts, that generate code, with the same name (but diffrent capitalization) were found.\n" .
"This can cause an issue with code generation, please rename one of the parts, from each pair.\n";
$whole_error = $whole_error . join('', @duplicates);
die $whole_error;
die $whole_error . "\n";
}
print "Total parts to process $ftotal\n";
Loading