#!/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: $!" };
	}