This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Also WinME is LoseLink.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 9 Dec 2001 17:57:44 +0000 (17:57 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 9 Dec 2001 17:57:44 +0000 (17:57 +0000)
p4raw-id: //depot/perl@13554

t/op/stat.t

index ab68e53..79f9e29 100755 (executable)
@@ -81,7 +81,7 @@ SKIP: {
     SKIP: {
         skip "No link count", 1 if $Config{dont_use_nlink};
         skip "Cygwin9X fakes hard links by copying", 1
     SKIP: {
         skip "No link count", 1 if $Config{dont_use_nlink};
         skip "Cygwin9X fakes hard links by copying", 1
-          if $Config{myuname} =~ /^cygwin_9\d\b/;
+          if $Config{myuname} =~ /^cygwin_(?:9\d|me)\b/i;
 
         is($nlink, 2,     'Link count on hard linked file' );
     }
 
         is($nlink, 2,     'Link count on hard linked file' );
     }