# HG changeset patch # User MattD # Date 1269874535 -3600 # Node ID 7ae5adc67cc7555b2930471abcc33fbe45434a52 # Parent 3b0e5fcfce3736d9fd7c78c73b24cdafe832cece workarround for Bug 2413 - evalid not so happy identifying libs created by new mwldsym2.exe diff -r 3b0e5fcfce37 -r 7ae5adc67cc7 bintools/evalid/EvalidCompare.pm --- a/bintools/evalid/EvalidCompare.pm Mon Mar 29 15:05:52 2010 +0100 +++ b/bintools/evalid/EvalidCompare.pm Mon Mar 29 15:55:35 2010 +0100 @@ -254,7 +254,7 @@ } } - if ($typeBuf =~ /^!\x0A(.{48}([0-9 ]{10})\x60\x0A(......))/s) { + if ($typeBuf =~ /^!\x0A(.{48}([0-9 ]{9}).\x60\x0A(......))/s) { # library - could be MARM or WINS $typeBuf = $1; @@ -263,7 +263,7 @@ open (FILE, $file) or die "Error: Couldn't open \"$file\" for reading: $!\n"; binmode (FILE); - while ($typeBuf =~ /^.{48}([0-9 ]{10})\x60\x0A(......)/s) { + while ($typeBuf =~ /^.{48}([0-9 ]{9}).\x60\x0A(......)/s) { # $1 is the size of the archive member, $2 is first 6 bytes of the file # There may be several different sorts of file in the archive, and we # need to scan through until we find a type we recognize: