[ Index ]

PHP Cross Reference of Unnamed Project

title

Body

[close]

/se3-clamav/tools/ -> svnrmadm (source)

   1  #!/usr/bin/perl
   2  use strict;
   3  use File::Find;
   4  use File::Path;
   5  sub enleve_moi_ca {
   6      if ($_ eq ".svn"){   
   7      rmtree($_) ;
   8      $File::Find::prune=1;
   9      }
  10  }
  11  find(\&enleve_moi_ca,".");


Generated: Tue Mar 17 22:47:18 2015 Cross-referenced by PHPXref 0.7.1