From ae05c9925cd9ae197d874bff5789167385714ade Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20R=C4=99korajski?= Date: Fri, 30 May 2014 15:50:54 +0200 Subject: [PATCH] - fix testsuite for user-writable files --- perl-write-permissions.patch | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/perl-write-permissions.patch b/perl-write-permissions.patch index 86657b7..98f4eb4 100644 --- a/perl-write-permissions.patch +++ b/perl-write-permissions.patch @@ -18,3 +18,23 @@ next unless $from =~ /\.pm$/; _autosplit($to,$autodir); } +--- perl-5.20.0/dist/ExtUtils-Install/t/Install.t.orig 2014-05-29 13:11:07.961096445 +0200 ++++ perl-5.20.0/dist/ExtUtils-Install/t/Install.t 2014-05-29 13:11:20.681234036 +0200 +@@ -237,7 +237,7 @@ + }, + ]); + +- ok( !writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' ); ++ ok( writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' ); + + use File::Compare; + ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"), +@@ -261,7 +261,7 @@ + }, + ]); + +- ok( !writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' ); ++ ok( writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' ); + ok( !-l "$bigdir/Dummy.pm", 'Dummy.pm not a link' ); + ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyOrig.pm"), + "orig file should be different"); -- 2.43.0