Changeset 1970 in ProjectBuilder
- Timestamp:
- Jun 15, 2015, 2:09:39 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r1968 r1970 4566 4566 my @files; 4567 4567 4568 opendir(DIR,"$dir") || confess "Unable to open directory $dir: $!"; 4569 foreach my $f (readdir(DIR)) { 4568 # In a recursive function , we need a local var as DIR handle 4569 my $bdir; 4570 4571 opendir($bdir,"$dir") || confess "Unable to open directory $dir: $!"; 4572 foreach my $f (readdir($bdir)) { 4570 4573 next if ($f =~ /^\./); 4571 4574 # Skip potential patch dir … … 4585 4588 } 4586 4589 } 4587 closedir( DIR);4590 closedir($bdir); 4588 4591 # Not enough but still a first cleanup 4589 4592 pb_rm_rf("$dir");
Note:
See TracChangeset
for help on using the changeset viewer.