Subversion Repositories se3

Rev

Blame | Last modification | View Log | RSS feed

#!/usr/bin/perl
use strict;
use File::Find;
use File::Path;
sub enleve_moi_ca {
    if ($_ eq ".svn"){   
        rmtree($_) ;
        $File::Find::prune=1;
    }
}
find(\&enleve_moi_ca,".");