This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/XS-APItest/t/handy.t: White space only
authorKarl Williamson <public@khwilliamson.com>
Mon, 3 Dec 2012 05:08:33 +0000 (22:08 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sun, 9 Dec 2012 17:30:01 +0000 (10:30 -0700)
Indent a newly formed block

ext/XS-APItest/t/handy.t

index d674b5f..c8323d4 100644 (file)
@@ -114,22 +114,22 @@ foreach my $name (sort keys %properties) {
         # clearer synonym for ALNUM
         if ($name ne 'vertws') {
             if ($name ne 'alnum') {
-            $ret = truth eval "test_is${function}_A($i)";
-            if ($@) {
-                fail($@);
-            }
-            else {
-                my $truth = truth($matches && $i < 128);
-                is ($ret, $truth, "is${function}_A( $display_name ) == $truth");
-            }
-            $ret = truth eval "test_is${function}_L1($i)";
-            if ($@) {
-                fail($@);
-            }
-            else {
-                my $truth = truth($matches && $i < 256);
-                is ($ret, $truth, "is${function}_L1( $display_name ) == $truth");
-            }
+                $ret = truth eval "test_is${function}_A($i)";
+                if ($@) {
+                    fail($@);
+                }
+                else {
+                    my $truth = truth($matches && $i < 128);
+                    is ($ret, $truth, "is${function}_A( $display_name ) == $truth");
+                }
+                $ret = truth eval "test_is${function}_L1($i)";
+                if ($@) {
+                    fail($@);
+                }
+                else {
+                    my $truth = truth($matches && $i < 256);
+                    is ($ret, $truth, "is${function}_L1( $display_name ) == $truth");
+                }
             }
 
             next unless defined $locale;