summaryrefslogtreecommitdiff
path: root/lang/parrot/patches/patch-am
blob: f31358f0b38db7a25b35cabf34b48ccd7b740eb6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
$NetBSD: patch-am,v 1.1 2011/04/06 11:22:57 he Exp $

--- t/dynpmc/os.t.orig	2011-03-15 08:01:43.000000000 +0000
+++ t/dynpmc/os.t
@@ -324,6 +324,7 @@ my $stat;
 
 my $count = $MSWin32 ? 11 : 13;
 my @s = stat('xpto');
+$s[6] = 0; # Parrot does this internally...
 if ( $cygwin ) {
     # Mask inode number (fudge it)
     $s[1] &= 0xffffffff;
@@ -483,6 +484,7 @@ SKIP: {
     skip 'broken test TT #457', 1 if $solaris;
 
     my @s = lstat('xpto');
+    $s[6] = 0; # Parrot does this internally...
     if ($cygwin) {
         # Mask inode number (fudge it)
         $s[1] &= 0xffffffff;