Changeset 1970 in ProjectBuilder

Timestamp:

Jun 15, 2015, 2:09:39 PM (9 years ago)

Author:

Bruno Cornec

Message:

Fix again a recursive issue with a file handle

File:

• devel/pb/bin/pb (modified) (2 diffs)

devel/pb/bin/pb

@@ -4566 +4566 @@
 my @files;
 
-opendir(DIR,"$dir") || confess "Unable to open directory $dir: $!";
-foreach my $f (readdir(DIR)) {
+# In a recursive function , we need a local var as DIR handle
+my $bdir;
+
+opendir($bdir,"$dir") || confess "Unable to open directory $dir: $!";
+foreach my $f (readdir($bdir)) {
     next if ($f =~ /^\./);
     # Skip potential patch dir
@@ -4585 +4588 @@
     }
 }
-closedir(DIR);
+closedir($bdir);
 # Not enough but still a first cleanup
 pb_rm_rf("$dir");