完全な関数定義の抽出

一方：

$ 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