Subversion Repositories gelsvn

Rev

Rev 141 | Rev 181 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 141 Rev 180
Line 10... Line 10...
10 
   chdir($dir) || die "Cannot chdir to $dir\n";
 10 
   chdir($dir) || die "Cannot chdir to $dir\n";
11 
   local(*DIR);
 11 
   local(*DIR);
12 
   opendir(DIR, ".");
 12 
   opendir(DIR, ".");
13 
   while ($f=readdir(DIR)) {
 13 
   while ($f=readdir(DIR)) {
14 
      next if ($f eq "." || $f eq ".." );
 14 
      next if ($f eq "." || $f eq ".." );
15 
      next if ($f eq "CVS");
 15 
      next if ($f eq ".svn");
16 
      next if (-f $f);
 16 
      next if (-f $f);
17 
      $found = 0;
 17 
      $found = 0;
18 
      for $keep (@keeps) {
 18 
      for $keep (@keeps) {
19 
        if ($f eq $keep) {
 19 
        if ($f eq $keep) {
20 
           $found = 1;
 20 
           $found = 1;