提取完整的函数定义

Question

鉴于：

$ cat test.ksh
doit() {
    doi1() {
        echo doi1 "$@"
    }
    doi2() {
        echo doi2 "$@"
    }
    doi1 a
    doi2 b
}
doit
functions doit
typeset -f doit

为什么我得到这个输出（doi2() 和最后一个 } 丢失）：

$ perl -e '$a=join("",<>);system("ksh","-c",$a)' test.ksh
doi1 a
doi2 b
doit() {
    doi1() {
        echo doi1 "$@"
    }
 {
        echo doi2 "$@"
    }
doit() {
    doi1() {
        echo doi1 "$@"
    }
 {
        echo doi2 "$@"
    }

而不是这个：

doi1 a
doi2 b
doit() {
    doi1() {
        echo doi1 "$@"
    }
    doi2() {
        echo doi2 "$@"
    }
    doi1 a
    doi2 b
}
doit() {
    doi1() {
        echo doi1 "$@"
    }
    doi2() {
        echo doi2 "$@"
    }
    doi1 a
    doi2 b
}

有什么方法可以告诉 ksh 保持函数名称不变，从而给我完整的函数定义吗？

$ ksh --version
  version         sh (AT&T Research) 93u+ 2012-08-01