"__PACKAGE__"=>__PACKAGE__,
"header_only"=>1,
"args_check"=>{
- "cvs"=>'^[^./][^.]*$',
+ "cvs"=>'^[\w\d][\w\d/.]*$',
},
);
open F,""
."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
." |perl -p -e 's#^RCS file: ".$W->{"pserver_path"}.'/(.*?)(?:/Attic/|/)?([^/]*),v$#$&\nWorking file: $1/$2#;'."'"
- ." |cvs2cl --stdin --stdout --window 3600 --separate-header --no-wrap --usermap ".$W->{"top_dir"}."/cvs2cl-usermap"
+ ." |cvs2cl --stdin --stdout --window 3600 --separate-header --no-wrap --usermap ".top_dir()."/cvs2cl-usermap"
." |";
print while <F>;
close F;