From: Tom Yu <tlyu@mit.edu>
Date: Fri, 13 Feb 2004 20:52:40 +0000 (+0000)
Subject: Change PRIOCNTL_HACK code to use "==" rather than "eq", as "eq" is not
X-Git-Tag: krb5-1.4-beta1~619
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=d761253055c2710df9c351b03b03129fc95ed9f5;p=krb5.git

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 39aedf631..85c048d02 100644
--- 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 efc07693f..a78515f91 100644
--- 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 c87dade47..03c929c81 100644
--- 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 8b7df9f16..495472e67 100644
--- 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 db49f5578..68af951e4 100644
--- 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 68b551d69..7e1cc23bf 100644
--- 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