ext/POSIX/t/posix.t: White-space only

Indent into a newly formed block

diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t
index 723a2c3..c2e4abe 100644 (file)
--- a/ext/POSIX/t/posix.t
+++ b/ext/POSIX/t/posix.t
@@ -291,37 +291,37 @@ like ($@, qr/^Use method IO::Handle::gets\(\) instead/,
       "check its redef message");
 
 {
-no warnings 'deprecated';
-# Simplistic tests for the isXXX() functions (bug #16799)
-ok( POSIX::isalnum('1'),  'isalnum' );
-ok(!POSIX::isalnum('*'),  'isalnum' );
-ok( POSIX::isalpha('f'),  'isalpha' );
-ok(!POSIX::isalpha('7'),  'isalpha' );
-ok( POSIX::iscntrl("\cA"),'iscntrl' );
-ok(!POSIX::iscntrl("A"),  'iscntrl' );
-ok( POSIX::isdigit('1'),  'isdigit' );
-ok(!POSIX::isdigit('z'),  'isdigit' );
-ok( POSIX::isgraph('@'),  'isgraph' );
-ok(!POSIX::isgraph(' '),  'isgraph' );
-ok( POSIX::islower('l'),  'islower' );
-ok(!POSIX::islower('L'),  'islower' );
-ok( POSIX::isupper('U'),  'isupper' );
-ok(!POSIX::isupper('u'),  'isupper' );
-ok( POSIX::isprint('$'),  'isprint' );
-ok(!POSIX::isprint("\n"), 'isprint' );
-ok( POSIX::ispunct('%'),  'ispunct' );
-ok(!POSIX::ispunct('u'),  'ispunct' );
-ok( POSIX::isspace("\t"), 'isspace' );
-ok(!POSIX::isspace('_'),  'isspace' );
-ok( POSIX::isxdigit('f'), 'isxdigit' );
-ok(!POSIX::isxdigit('g'), 'isxdigit' );
-# metaphysical question : what should be returned for an empty string ?
-# anyway this shouldn't segfault (bug #24554)
-ok( POSIX::isalnum(''),   'isalnum empty string' );
-ok( POSIX::isalnum(undef),'isalnum undef' );
-# those functions should stringify their arguments
-ok(!POSIX::isalpha([]),   'isalpha []' );
-ok( POSIX::isprint([]),   'isprint []' );
+    no warnings 'deprecated';
+    # Simplistic tests for the isXXX() functions (bug #16799)
+    ok( POSIX::isalnum('1'),  'isalnum' );
+    ok(!POSIX::isalnum('*'),  'isalnum' );
+    ok( POSIX::isalpha('f'),  'isalpha' );
+    ok(!POSIX::isalpha('7'),  'isalpha' );
+    ok( POSIX::iscntrl("\cA"),'iscntrl' );
+    ok(!POSIX::iscntrl("A"),  'iscntrl' );
+    ok( POSIX::isdigit('1'),  'isdigit' );
+    ok(!POSIX::isdigit('z'),  'isdigit' );
+    ok( POSIX::isgraph('@'),  'isgraph' );
+    ok(!POSIX::isgraph(' '),  'isgraph' );
+    ok( POSIX::islower('l'),  'islower' );
+    ok(!POSIX::islower('L'),  'islower' );
+    ok( POSIX::isupper('U'),  'isupper' );
+    ok(!POSIX::isupper('u'),  'isupper' );
+    ok( POSIX::isprint('$'),  'isprint' );
+    ok(!POSIX::isprint("\n"), 'isprint' );
+    ok( POSIX::ispunct('%'),  'ispunct' );
+    ok(!POSIX::ispunct('u'),  'ispunct' );
+    ok( POSIX::isspace("\t"), 'isspace' );
+    ok(!POSIX::isspace('_'),  'isspace' );
+    ok( POSIX::isxdigit('f'), 'isxdigit' );
+    ok(!POSIX::isxdigit('g'), 'isxdigit' );
+    # metaphysical question : what should be returned for an empty string ?
+    # anyway this shouldn't segfault (bug #24554)
+    ok( POSIX::isalnum(''),   'isalnum empty string' );
+    ok( POSIX::isalnum(undef),'isalnum undef' );
+    # those functions should stringify their arguments
+    ok(!POSIX::isalpha([]),   'isalpha []' );
+    ok( POSIX::isprint([]),   'isprint []' );
 }
 
 eval { use strict; POSIX->import("S_ISBLK"); my $x = S_ISBLK };