#!/usr/bin/perl # $HeadURL$ $LastChangedRevision$ VERSION="UNKNOWN" sub svn_pset { my($file, $property, @values) = @_; open(PIPE_HANDLE, "| EDITOR=tee svn pedit $property $file") || die; printf PIPE_HANDLE "%s\n", join("\n", @values); } while () { chomp; if (/^Properties on \'(.*)\':/) { if (@values) { svn_pset($file, $property, @values); @values = (); } $file = $1; } elsif (/^ (svn:.*) : (.*)/) { $property = $1; push @values, $2 } else { push @values, $_ } } if (@values) { svn_pset($file, $property, @values); @values = (); }