This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Updated Unicode-Collate to CPAN version 0.76
[perl5.git] / cpan / Unicode-Collate / mkheader
index dde4ee1..c92d7c9 100644 (file)
@@ -38,7 +38,7 @@ our @Rest;
 
 {
     my($f, $fh);
-    foreach my $d ('.') {
+    foreach my $d (File::Spec->curdir()) {
        $f = File::Spec->catfile($d, "Collate", "allkeys.txt");
        last if open($fh, $f);
        $f = undef;