Change PRIOCNTL_HACK code to use "==" rather than "eq", as "eq" is not

available in tcl-8.3.

ticket: new
target_version: 1.3.2
tags: pullup

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@16071 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/lib/kadm5/unit-test/ChangeLog b/src/lib/kadm5/unit-test/ChangeLog
index 39aedf631f71fe5678b41dc2a585dcb25eb9fcc5..85c048d02f8274d1bbe5ec974cad0b25933b0c26 100644 (file)
--- a/src/lib/kadm5/unit-test/ChangeLog
+++ b/src/lib/kadm5/unit-test/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-13  Tom Yu  <tlyu@mit.edu>
+
+       * config/unix.exp (PRIOCNTL_HACK): Use "==" instead of "eq", which
+       is not present in tcl-8.3.
+
 2004-02-12  Tom Yu  <tlyu@mit.edu>
 
        * config/unix.exp (PRIOCNTL_HACK): Wrap "spawn" to do priocntl

diff --git a/src/lib/kadm5/unit-test/config/unix.exp b/src/lib/kadm5/unit-test/config/unix.exp
index efc07693f2fade09e6e1cdf937f6070a7eddc900..a78515f915bc8e0b8a87cdb407f76e54b9558473 100644 (file)
--- a/src/lib/kadm5/unit-test/config/unix.exp
+++ b/src/lib/kadm5/unit-test/config/unix.exp
@@ -25,9 +25,9 @@ if { $PRIOCNTL_HACK } {
        set inflags 1
        set eatnext 0
        foreach arg $args {
-           if { $arg eq "-ignore" ||
-                $arg eq "-open" ||
-                $arg eq "-leaveopen" } {
+           if { $arg == "-ignore" \
+                    || $arg == "-open" \
+                    || $arg == "-leaveopen" } {
                lappend newargs $arg
                set eatnext 1
                continue

diff --git a/src/lib/rpc/unit-test/ChangeLog b/src/lib/rpc/unit-test/ChangeLog
index c87dade4743126ff3f41d85d68c19ab1d6bbc031..03c929c819562582e63bcf772e2e0e824795b8dd 100644 (file)
--- a/src/lib/rpc/unit-test/ChangeLog
+++ b/src/lib/rpc/unit-test/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-13  Tom Yu  <tlyu@mit.edu>
+
+       * config/unix.exp (PRIOCNTL_HACK): Use "==" instead of "eq", which
+       is not present in tcl-8.3.
+
 2004-02-12  Tom Yu  <tlyu@mit.edu>
 
        * configure.in: Invoke KRB5_AC_PRIOCNTL_HACK.

diff --git a/src/lib/rpc/unit-test/config/unix.exp b/src/lib/rpc/unit-test/config/unix.exp
index 8b7df9f1632675a9a0356b1f1b74ca8844af94cc..495472e672a0a048954187beca4211d15135cdb9 100644 (file)
--- a/src/lib/rpc/unit-test/config/unix.exp
+++ b/src/lib/rpc/unit-test/config/unix.exp
@@ -20,9 +20,9 @@ if { $PRIOCNTL_HACK } {
        set inflags 1
        set eatnext 0
        foreach arg $args {
-           if { $arg eq "-ignore" ||
-                $arg eq "-open" ||
-                $arg eq "-leaveopen" } {
+           if { $arg == "-ignore" \
+                    || $arg == "-open" \
+                    || $arg == "-leaveopen" } {
                lappend newargs $arg
                set eatnext 1
                continue

diff --git a/src/tests/dejagnu/config/ChangeLog b/src/tests/dejagnu/config/ChangeLog
index db49f5578716c9d4800af356fe2c2b672371254b..68af951e48c763433ec98e4bb5a539da35b0ca57 100644 (file)
--- a/src/tests/dejagnu/config/ChangeLog
+++ b/src/tests/dejagnu/config/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-13  Tom Yu  <tlyu@mit.edu>
+
+       * default.exp (PRIOCNTL_HACK): Use "==" instead of "eq", which is
+       not present in tcl-8.3.
+
 2004-02-12  Tom Yu  <tlyu@mit.edu>
 
        * default.exp (PRIOCNTL_HACK): Wrap "spawn" to do priocntl things

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index 68b551d69d934bcdf98f8445ea99f3472a8cd56f..7e1cc23bf3a05937373d0703b541405b0c158a2f 100644 (file)
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -65,9 +65,9 @@ if { $PRIOCNTL_HACK } {
        set inflags 1
        set eatnext 0
        foreach arg $args {
-           if { $arg eq "-ignore" ||
-                $arg eq "-open" ||
-                $arg eq "-leaveopen" } {
+           if { $arg == "-ignore" \
+                    || $arg == "-open" \
+                    || $arg == "-leaveopen" } {
                lappend newargs $arg
                set eatnext 1
                continue