24625524 MIT krb built-in test suite failed on machine with special characters hostname
authorNeng Xue <neng.xue@oracle.com>
Thu, 06 Oct 2016 13:35:02 -0700
changeset 7065 3b4c4feebc4f
parent 7064 b71ebfb2c255
child 7066 83336d48cee7
24625524 MIT krb built-in test suite failed on machine with special characters hostname
components/krb5/patches/047-dejagnu.patch
--- a/components/krb5/patches/047-dejagnu.patch	Thu Oct 06 10:27:46 2016 -0700
+++ b/components/krb5/patches/047-dejagnu.patch	Thu Oct 06 13:35:02 2016 -0700
@@ -32,7 +32,7 @@
  struct flagval {
      char *name;
      krb5_flags val;
[email protected]@ -2504,12 +2507,14 @@ static int tcl_kadm5_get_privs(ClientData clientData, Tcl_Interp *interp,
[email protected]@ -2504,12 +2507,14 @@ static int tcl_kadm5_get_privs(ClientDat
  
  void Tcl_kadm5_init(Tcl_Interp *interp)
  {
@@ -74,6 +74,24 @@
  }
  if {$RPC} test102
  
[email protected]@ -412,7 +412,7 @@ test117
+     
+ send "puts \$KADM5_ADMIN_SERVICE\n"
+ expect {
+-    -re "(\[a-zA-Z/@\]+)\n$prompt" {
++    -re "(\[a-zA-Z0-9/\\[email protected]\]+)\n$prompt" {
+ 	set KADM5_ADMIN_SERVICE $expect_out(1,string) 
+     }
+     default {
[email protected]@ -423,7 +423,7 @@ expect {
+ 
+ send "puts \$KADM5_CHANGEPW_SERVICE\n"
+ expect {
+-    -re "(\[a-zA-Z/@\]+)\n$prompt" {
++    -re "(\[a-zA-Z0-9/\\[email protected]\]+)\n$prompt" {
+ 	set KADM5_CHANGEPW_SERVICE $expect_out(1,string) 
+     }
+     default {
 @@ -434,10 +434,11 @@ expect {
  
  test "init 150"