From b4c6bb8471e06f410c5af881b3f5530dacb82dbe Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 16 Jul 2011 22:26:05 -0700
Subject: [PATCH] re-indent some tests for readability

This makes it easier to see when the skip count needs to
be updated.
---
 t/io/perlio.t   | 30 ++++++++++++++++--------------
 t/op/sub_lval.t | 12 ++++++------
 2 files changed, 22 insertions(+), 20 deletions(-)

diff --git a/t/io/perlio.t b/t/io/perlio.t
index 42619b5..f6e7fc4 100644
--- a/t/io/perlio.t
+++ b/t/io/perlio.t
@@ -168,10 +168,10 @@ SKIP: {
     }
 
 
-{ local $TODO = 'fails well back into 5.8.x';
+    { local $TODO = 'fails well back into 5.8.x';
 
 	
-sub read_fh_and_return_final_rv {
+      sub read_fh_and_return_final_rv {
 	my ($fh) = @_;
 	my $buf = '';
 	my $rv;
@@ -180,22 +180,24 @@ sub read_fh_and_return_final_rv {
 		next if $rv;
 	}
 	return $rv
-}
+      }
 
-open(my $no_perlio, '<', \'ab') or die; 
-open(my $perlio, '<:crlf', \'ab') or die; 
+      open(my $no_perlio, '<', \'ab') or die; 
+      open(my $perlio, '<:crlf', \'ab') or die; 
 
-is(read_fh_and_return_final_rv($perlio), read_fh_and_return_final_rv($no_perlio), "RT#69332 - perlio should return the same value as nonperlio after EOF");
+      is(read_fh_and_return_final_rv($perlio),
+         read_fh_and_return_final_rv($no_perlio),
+        "RT#69332 - perlio should return the same value as nonperlio after EOF");
 
-close ($perlio);
-close ($no_perlio);
-}
+      close ($perlio);
+      close ($no_perlio);
+    }
 
-{ # [perl #92258]
-    open my $fh, "<", \(my $f = *f);
-    is join("", <$fh>), '*main::f', 'reading from a glob copy';
-    is ref \$f, 'GLOB', 'the glob copy is unaffected';
-}
+    { # [perl #92258]
+        open my $fh, "<", \(my $f = *f);
+        is join("", <$fh>), '*main::f', 'reading from a glob copy';
+        is ref \$f, 'GLOB', 'the glob copy is unaffected';
+    }
 
 }
 
diff --git a/t/op/sub_lval.t b/t/op/sub_lval.t
index 491b9e5..f34fab9 100644
--- a/t/op/sub_lval.t
+++ b/t/op/sub_lval.t
@@ -792,14 +792,14 @@ Execution of - aborted due to compilation errors.
 }
 
 SKIP: { skip "no attributes.pm", 2 unless eval { require attributes };
-sub utf8::valid :lvalue;
-require attributes;
-is "@{[ &attributes::get(\&utf8::valid) ]}", 'lvalue',
+  sub utf8::valid :lvalue;
+  require attributes;
+  is "@{[ &attributes::get(\&utf8::valid) ]}", 'lvalue',
    'sub declaration with :lvalue applies it to XSUBs';
 
-BEGIN { *wonky = \&marjibberous }
-sub wonky :lvalue;
-is "@{[ &attributes::get(\&wonky) ]}", 'lvalue',
+  BEGIN { *wonky = \&marjibberous }
+  sub wonky :lvalue;
+  is "@{[ &attributes::get(\&wonky) ]}", 'lvalue',
    'sub declaration with :lvalue applies it to assigned stub';
 }
 
-- 
2.7.4