diff options
author | Akira TAGOH <akira@tagoh.org> | 2006-10-09 15:32:02 +0000 |
---|---|---|
committer | Akira TAGOH <akira@tagoh.org> | 2006-10-09 15:32:02 +0000 |
commit | c6d998f1466c550df2253322864d2b7f239b3c43 (patch) | |
tree | a83c215bfc33e1a17cc652d1776b93d53ce93dae /lib | |
parent | ee1113b70a83b26dd377e715aad831ecf45b5222 (diff) |
2006-10-10 Akira TAGOH <at@gclab.org>
* lib/hg_init.ps (cvs): better error handling.
* tests/ps/test-cvs.ps:
* tests/ps/test-cvrs.ps: new testcases.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/hg_init.ps | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/hg_init.ps b/lib/hg_init.ps index dcdee88..f8b922d 100644 --- a/lib/hg_init.ps +++ b/lib/hg_init.ps @@ -128,7 +128,14 @@ systemdict /.statementedit known { } bind odef % any -string- cvs -substring- /cvs { - exch .stringcvs exch copy + count 2 lt { + /cvs errordict /stackunderflow get exec + } if + dup type /stringtype ne { + /cvs errordict /typecheck get exec + } { + exch .stringcvs exch copy + } ifelse } bind odef % key font|cidfont definefont font|cidfont /definefont { |