This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove code commented out since March 2002.
authorJames E Keenan <jkeenan@cpan.org>
Mon, 29 Oct 2018 21:19:07 +0000 (17:19 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Tue, 30 Oct 2018 21:28:23 +0000 (17:28 -0400)
Align indents after removal of comments.

t/io/fs.t

index 68f23fc..cb3cad5 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -120,15 +120,11 @@ SKIP: {
 
     SKIP: {
         skip "hard links not that hard in $^O", 1 if $^O eq 'amigaos';
-       skip "no mode checks", 1 if $skip_mode_checks;
+        skip "no mode checks", 1 if $skip_mode_checks;
 
-#      if ($^O eq 'cygwin') { # new files on cygwin get rwx instead of rw-
-#          is($mode & 0777, 0777, "mode of triply-linked file");
-#      } else {
-            is(sprintf("0%o", $mode & 0777), 
-               sprintf("0%o", $a_mode & 0777), 
-               "mode of triply-linked file");
-#      }
+        is(sprintf("0%o", $mode & 0777), 
+            sprintf("0%o", $a_mode & 0777), 
+            "mode of triply-linked file");
     }
 }