Changeset 28189 for gs2-extensions/parallel-building/trunk/src

Timestamp:

2013-08-30T09:06:56+12:00 (11 years ago)

Author:

jmt12

Message:

Replace the newer (and faster) while(@file) loop with the older (and more reliable) foreach() loop

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/generate_gantt.pl (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/bin/script/generate_gantt.pl

@@ -4 +4 @@
 use strict;
 use warnings;
-use 5.012; # so readdir assigns to $_ in a lone while test
 
 # Modules
@@ -83 +82 @@
   # We also recursively search for other directories containing timing.csv's
   opendir(my $dh, $dir) or &printError('Failed to open directory for reading: ' . $dir);
-  while (readdir($dh))
-  {
-    my $file = $_;
+  my @files = readdir($dh);
+  foreach my $file (@files)
+  {
     if ($file !~ /^\./)
     {