This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/handy.t: White-space only
authorKarl Williamson <khw@cpan.org>
Sun, 18 Dec 2016 02:22:14 +0000 (19:22 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 23 Dec 2016 18:41:32 +0000 (11:41 -0700)
indent newly formed block.

ext/XS-APItest/t/handy.t

index f085e6a..0de82c9 100644 (file)
@@ -117,18 +117,18 @@ foreach my $name (sort keys %properties, 'octal') {
         push @invlist, ord "0", ord "8";
     }
     else {
-    my $property = $properties{$name};
-    @invlist = prop_invlist($property, '_perl_core_internal_ok');
-    if (! @invlist) {
-
-        # An empty return could mean an unknown property, or merely that it is
-        # empty.  Call in scalar context to differentiate
-        if (! prop_invlist($property, '_perl_core_internal_ok')) {
-            fail("No inversion list found for $property");
-            next;
+        my $property = $properties{$name};
+        @invlist = prop_invlist($property, '_perl_core_internal_ok');
+        if (! @invlist) {
+
+            # An empty return could mean an unknown property, or merely that
+            # it is empty.  Call in scalar context to differentiate
+            if (! prop_invlist($property, '_perl_core_internal_ok')) {
+                fail("No inversion list found for $property");
+                next;
+            }
         }
     }
-    }
 
     # Include all the Latin1 code points, plus 0x100.
     my @code_points = (0 .. 256);