[compiler] Be tolerant of .to-posix returning a list now

FROGGS · Mar 25, 2011 · 7a937de · 7a937de
1 parent 3cc93a7
commit 7a937de
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/NieczaPathSearch.pm6 b/src/NieczaPathSearch.pm6
@@ -13,7 +13,7 @@ method load_module($name) {
                 my $text = $fn.slurp;
                 # check borrowed from STD to weed out Perl 5 heuristically
                 next if $ext eq 'pm' && $text ~~ /^^\h*package\h+\w+\s*\;/;
-                return (~$fn.realpath, $fn.modified.to-posix, $text);
+                return (~$fn.realpath, $fn.modified.to-posix.[0], $text);
             }
         }
     }
@@ -23,5 +23,5 @@ method load_module($name) {
 
 method load_file($name) {
     my $p = $name.IO;
-    (~$p.realpath, $p.modified.to-posix, $p.slurp);
+    (~$p.realpath, $p.modified.to-posix.[0], $p.slurp);
 }