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

Timestamp:

2013-06-10T10:25:10+12:00 (11 years ago)

Author:

jmt12

Message:

The perl on Medusa won't let you immediately treat a returned array in a scalar context (or at least not without casting) - so I'll write this as two lines for clarity sake (readability in Perl... surely not)

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/test_fileutils.pl (modified) (1 diff)

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

@@ -465 +465 @@
   if ($base_path ne '')
   {
-    my $depth = split(/[\/\\]/, $base_path) - 1;
+    my @parts = split(/[\/\\]/, $base_path);
+    my $depth = scalar(@parts) - 1;
     my $rel_prefix = '..';
     for (my $i = 1; $i < $depth; $i++)