[packages/perl] - fix testsuite for user-writable files

[baggins]

commit ae05c9925cd9ae197d874bff5789167385714ade
Author: Jan Rękorajski <baggins at pld-linux.org>
Date:   Fri May 30 15:50:54 2014 +0200

    - 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");
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl.git/commitdiff/2730e8ff09c8f1bb53715d15f2ea5ccba2bb95c5