[CVS] 修改CVS Utilities的一个小BUG：cvschroot

来源：互联网发布：coc防空火箭数据编辑：程序博客网时间：2024/05/14 16:33

CVS Utilities: http://www.red-bean.com/cvsutils/
    修改一个bug
      一个合法的CVSROOT可以是:psrver:myhan@192.168.10.20:2404/home/cvsroot
      这里的cvs服务器地址后面是可以带上端口号的。
      如果一台机器上同时启动多个仓库，常常采用这种方法。
      为了方便，我使用CVS Utilities提供的cvschroot程序来变更我当前工作中的项目的CVSROOT,
      但是出现输入的CVSROOT它不认识的问题，所以做了如下的修改：

--- cvschroot.orig      2004-08-12 17:10:11.000000000 +0800+++ cvschroot   2004-08-12 16:49:58.000000000 +0800@@ -76,7 +76,7 @@ sub split_root ($) {        my $res;-       if ( shift(@_) =~ m{^([^ ]+:)?(/[^:@ ]+)$} ) {+       if ( shift(@_) =~ m{^([^ ]+:[/d]*)?(/[^:@ ]+)$} ) {                $res = $2;        } else {                error shift(@_) . " not recognized";