http://qs321.pair.com?node_id=680472

Public Scratchpad

Download, Select Code To D/L

---

Copy svn properties:

( cd $DIR && svn pl -v --xml . -R ) | perl -MXML::Simple -MData::Dumpe
+r -e '
$r = XMLin( join( "", <> ), ForceArray => 1, ContentKey => '-content' 
+);
$r = { map { $_->{path} => $_->{property} } @{ $r->{target} } };
while ( my ( $path, $props ) = each %$r ) {
    while ( my ( $prop, $value ) = each %$props ) {
        print "svn ps '$pro' '$value' '$path'\n";
    }
}
'
[download]