Changeset 28189
- Timestamp:
- 2013-08-30T09:06:56+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/bin/script/generate_gantt.pl
r28188 r28189 4 4 use strict; 5 5 use warnings; 6 use 5.012; # so readdir assigns to $_ in a lone while test7 6 8 7 # Modules … … 83 82 # We also recursively search for other directories containing timing.csv's 84 83 opendir(my $dh, $dir) or &printError('Failed to open directory for reading: ' . $dir); 85 while (readdir($dh))86 {87 my $file = $_;84 my @files = readdir($dh); 85 foreach my $file (@files) 86 { 88 87 if ($file !~ /^\./) 89 88 {
Note:
See TracChangeset
for help on using the changeset viewer.