Skip writable tests in ExtUtils-Install when root
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 15 Apr 2014 20:53:56 +0000 (21:53 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 15 Apr 2014 21:00:44 +0000 (22:00 +0100)
Bump ExtUtils::Install to 1.66

dist/ExtUtils-Install/lib/ExtUtils/Install.pm
dist/ExtUtils-Install/t/Install.t

index ab60b6a..67981ac 100644 (file)
@@ -38,11 +38,11 @@ ExtUtils::Install - install files from here to there
 
 =head1 VERSION
 
-1.65
+1.66
 
 =cut
 
-$VERSION = '1.65';  # <-- do not forget to update the POD section just above this line!
+$VERSION = '1.66';  # <-- do not forget to update the POD section just above this line!
 $VERSION = eval $VERSION;
 
 =pod
index 47fcc26..e45e1dd 100644 (file)
@@ -226,7 +226,10 @@ SKIP: {
                          },
     ]);
 
-    ok( !-w "$bigdir/DummyHard.pm", 'DummyHard.pm not writeable' );
+    SKIP: {
+      skip 'everywhere is writable to root', 1 if $> == 0;
+      ok( !-w "$bigdir/DummyHard.pm", 'DummyHard.pm not writeable' );
+    }
 
     use File::Compare;
     ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"),
@@ -250,7 +253,10 @@ SKIP: {
                          },
     ]);
 
-    ok( !-w "$bigdir/DummyOrig.pm", 'DummyOrig.pm not writeable' );
+    SKIP: {
+      skip 'everywhere is writable to root', 1 if $> == 0;
+      ok( !-w "$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");