diff options
| author | Tom Yu <tlyu@mit.edu> | 2004-02-13 20:52:40 +0000 |
|---|---|---|
| committer | Tom Yu <tlyu@mit.edu> | 2004-02-13 20:52:40 +0000 |
| commit | d761253055c2710df9c351b03b03129fc95ed9f5 (patch) | |
| tree | 642c076dec8f4098bf9eda79b9683643e10043a8 /src | |
| parent | 65979a268ddea3d7b0ff170da5923a6a3c0255cb (diff) | |
| download | krb5-d761253055c2710df9c351b03b03129fc95ed9f5.tar.gz krb5-d761253055c2710df9c351b03b03129fc95ed9f5.tar.xz krb5-d761253055c2710df9c351b03b03129fc95ed9f5.zip | |
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/lib/kadm5/unit-test/ChangeLog | 5 | ||||
| -rw-r--r-- | src/lib/kadm5/unit-test/config/unix.exp | 6 | ||||
| -rw-r--r-- | src/lib/rpc/unit-test/ChangeLog | 5 | ||||
| -rw-r--r-- | src/lib/rpc/unit-test/config/unix.exp | 6 | ||||
| -rw-r--r-- | src/tests/dejagnu/config/ChangeLog | 5 | ||||
| -rw-r--r-- | src/tests/dejagnu/config/default.exp | 6 |
6 files changed, 24 insertions, 9 deletions
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 |