Changeset 17606 for ext

Timestamp:

09/02/07 15:06:11 (16 months ago)

Author:

masak

Message:

[File::Spec::Win32]
* worked around the strange array init bug
* module tests now pass

Files:

• ext/File-Spec/lib/File/Spec/Win32.pm (modified) (1 diff)

ext/File-Spec/lib/File/Spec/Win32.pm

@@ -48 +48 @@
     my @path = @_path;
     my @new_path;
-    my $i = 0;
-    loop ($i = 0; $i < @path; $i++) {
-        @path[$i] ~~ s:P5:g"/"\\";
-        if (@path[$i] ~~ m:P5"\\$") {
-            push(@new_path, @path[$i]);
+    @new_path = gather {
+      for @path -> $part {
+
+        if $part !~~ m:P5"\\$" {
+          take $part ~ "\\";
         }
         else {
-            push(@new_path, @path[$i] ~ "\\");
-        }
-    }
+          take $part;
+        }
+      }
+    };
+
     return canonpath(join('', @new_path));
 }