I have this little script, although it shells out to svn log to ask it about the file. It's good enough for the rare times when I need it and don't want to look at svn log directly.
#!/usr/bin/perl
foreach $f (@ARGV)
{
open F, "svn log $f |";
while(<F>)
{
next unless /^r/;
/^(r\d+)\s+\|\s+(.*?)\s+\|/;
print "$f $1 $2\n";
last
}
close F or do { $! = $? >> 8; warn "Could not read $f: $!" };
}
The output shows me the file, last revision where the file was changed, and who changed it. With a little more work I could get the date (or just print the entire second line from svn log).
$ svn-who Chap*/*.pod
...
Chapters/16.tied_variables.pod r137 brian
Chapters/17.modulinos.pod r130 brian
Chapters/18.bit_vectors.pod r137 brian
Chapters/19.foriegn_relations.pod r137 brian
|