Added a patch for t/io/fs.t, which handles filesystems that are mounted

with the "noatime" option on NetBSD.

2 files changed, 25 insertions, 1 deletions

diff --git a/lang/perl5/distinfo b/lang/perl5/distinfo
index 86ba332df50..dfdf1d26a1a 100644
--- a/lang/perl5/distinfo
+++ b/lang/perl5/distinfo
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.34 2006/05/06 12:32:20 jlam Exp $
+$NetBSD: distinfo,v 1.35 2006/07/02 20:35:53 rillig Exp $
 
 SHA1 (perl-5.8.8.tar.bz2) = 4aab490040727ca4419098720eca2ba4367df539
 RMD160 (perl-5.8.8.tar.bz2) = e78f26d9b96e6db35f946ad4ff55e3a69385c71b
@@ -19,4 +19,5 @@ SHA1 (patch-ch) = a0831869e23d4a66588e6e27eecedb08527c9498
 SHA1 (patch-ci) = fe943f07044efa457d163eb86974ea10bb356226
 SHA1 (patch-cj) = 3f40f1b166a054d55224c3e79d74516ca608b696
 SHA1 (patch-ck) = 28207b8186c9ad194a1edc696159915bc16d1097
+SHA1 (patch-ta) = ca0d1e4bc2dbbc4b86a087fed27cd1e7bbb2873f
 SHA1 (patch-zc) = 0c61b6028813e0f80bfe0760a1e74e3037d37cdd
diff --git a/lang/perl5/patches/patch-ta b/lang/perl5/patches/patch-ta
new file mode 100644
index 00000000000..9221a0c1089
--- /dev/null
+++ b/lang/perl5/patches/patch-ta
@@ -0,0 +1,23 @@
+$NetBSD: patch-ta,v 1.1 2006/07/02 20:35:53 rillig Exp $
+
+On NetBSD, filesystems may be mounted with the noatime option.
+
+--- t/io/fs.t.orig	2006-01-08 22:46:15.000000000 +0100
++++ t/io/fs.t	2006-07-02 22:33:01.000000000 +0200
+@@ -255,13 +255,13 @@ SKIP: {
+             is( $atime, 500000001,          'atime' );
+             is( $mtime, 500000000 + $delta, 'mtime' );
+         }
+-        elsif ($^O eq 'beos') {
++        elsif ($^O eq 'beos' || $^O eq 'netbsd') {
+             SKIP: { skip "atime not updated", 1; }
+             is($mtime, 500000001, 'mtime');
+         }
+         else {
+-            fail("atime");
+-            fail("mtime");
++            fail("atime: expected 500000000, got ${atime}");
++            fail("mtime: expected ".(500000000+$delta).", got ${mtime}");
+         }
+     }
+ }