Mark,
Nifty. There appear to be some CVS version dependencies (I have
1.11.1p1 on Linux). The original script was looking for a date after
the "Working revision". I wasn't seeing that so I modified that line.
When I had a file open in vim, cvsdir didn't like the "?" line it got
back from "cvs -Q status -l" so I had it skip such lines as well as
blanks.
My Perl is pretty rudimentary, so I'm not up for making large changes.
With these it works pretty well for me.
Steve
[stryon@Gandalf bin]$ diff cvsdir_original cvsdir
89a90
> print "\n";
173a175
> next if $Line =~ /^\?.*$/; # skip lines starting with ?
195c197
< if( $Line =~ /^\s+Working
revision:\s+([0-9.]+)\s+(.*?)\s*$/ ) {
---
> if( $Line =~ /^\s+Working revision:\s+([0-9.]+)\s*$/ ) {
198c200
< $rh_File->{Date} = $2;
---
> # $rh_File->{Date} = $2;
Steve
--
Steven Tryon, CIBER @ Xerox
Webmaster, Xerox Global Service Net
8*221-7719 / 585-231-7719
_______________________________________________
Info-cvs mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/info-cvs
