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;