Commit 041e7f2e authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

Additional sanity check.

parent ab124380

crypto/objects/objects.pl

+2 −0
Original line number Diff line number Diff line
@@ -14,6 +14,8 @@ while(<NUMIN>) 
	$Cname =~ s/^X//;

	if (defined($nidn{$mynum}))

		{ die "$ARGV[1]:$o:There's already an object with NID ",$mynum," on line ",$order{$mynum},"\n"; }

	if (defined($nid{$Cname}))

		{ die "$ARGV[1]:$o:There's already an object with name ",$mynum," on line ",$order{$nid{$Cname}},"\n"; }

	$nid{$Cname} = $mynum;

	$nidn{$mynum} = $Cname;

	$order{$mynum} = $o;