Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (3 sloc) 92 Bytes
#!/usr/bin/perl
use File::Find;
finddepth( sub{rmdir}, ($#ARGV == -1) ? '.' : $ARGV[0]);