* lib/binutils-common.exp (regexp_diff): Use "==" instead of "eq".

diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index 4b65fcf..faf6d99 100644 (file)
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-03  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+       * lib/binutils-common.exp (regexp_diff): Use "==" instead of "eq".
+
 2010-12-31  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
        * binutils-all/copy-2.d: Change "hppa" to "hppa*" in not-target list.

diff --git a/binutils/testsuite/lib/binutils-common.exp b/binutils/testsuite/lib/binutils-common.exp
index 424ca3d..8e2c36f 100644 (file)
--- a/binutils/testsuite/lib/binutils-common.exp
+++ b/binutils/testsuite/lib/binutils-common.exp
@@ -237,7 +237,7 @@ proc regexp_diff { file_1 file_2 args } {
                    set diff_pass 1
                    break
                }
-               set negated [expr { [string index $line_b 0] eq "!" }]
+               set negated [expr { [string index $line_b 0] == "!" }]
                set line_bx [string range $line_b $negated end]
                set n [expr { $negated ? "! " : "" }]
                # Substitute on the reference.
@@ -275,7 +275,7 @@ proc regexp_diff { file_1 file_2 args } {
            set differences 1
            break
        } else {
-           set negated [expr { [string index $line_b 0] eq "!" }]
+           set negated [expr { [string index $line_b 0] == "!" }]
            set line_bx [string range $line_b $negated end]
            set n [expr { $negated ? "! " : "" }]
            set s [expr { $negated ? "  " : "" }]