This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/unicode_constants.pl: White-space only
authorKarl Williamson <khw@cpan.org>
Thu, 17 Apr 2014 01:32:38 +0000 (19:32 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 31 May 2014 16:14:55 +0000 (10:14 -0600)
Indent code in block formed by the previous commit

regen/unicode_constants.pl

index 2924ff4..8d68563 100644 (file)
@@ -116,25 +116,25 @@ while ( <DATA> ) {
         $str = sprintf "0x%02X", $cp;        # Is a numeric constant
     }
     else {
-    $str = join "", map { sprintf "\\x%02X", $_ }
-                       unpack("U0C*", pack("U", $cp));
-
-    $suffix = '_UTF8';
-    if (! defined $flag  || $flag =~ /^ string (_skip_if_undef)? $/x) {
-        $str = "\"$str\"";  # Will be a string constant
-    } elsif ($flag eq 'tail') {
-            $str =~ s/\\x..//;  # Remove the first byte
-            $suffix .= '_TAIL';
+        $str = join "", map { sprintf "\\x%02X", $_ }
+                        unpack("U0C*", pack("U", $cp));
+
+        $suffix = '_UTF8';
+        if (! defined $flag || $flag =~ /^ string (_skip_if_undef)? $/x) {
             $str = "\"$str\"";  # Will be a string constant
-    }
-    elsif ($flag eq 'first') {
-        $str =~ s/ \\x ( .. ) .* /$1/x; # Get the two nibbles of the 1st byte
-        $suffix .= '_FIRST_BYTE';
-        $str = "0x$str";        # Is a numeric constant
-    }
-    else {
-        die "Unknown flag at line $.: $_\n";
-    }
+        } elsif ($flag eq 'tail') {
+                $str =~ s/\\x..//;  # Remove the first byte
+                $suffix .= '_TAIL';
+                $str = "\"$str\"";  # Will be a string constant
+        }
+        elsif ($flag eq 'first') {
+            $str =~ s/ \\x ( .. ) .* /$1/x; # Get the two nibbles of the 1st byte
+            $suffix .= '_FIRST_BYTE';
+            $str = "0x$str";        # Is a numeric constant
+        }
+        else {
+            die "Unknown flag at line $.: $_\n";
+        }
     }
     printf $out_fh "#define %s%s  %s    /* U+%04X */\n", $name, $suffix, $str, $U_cp;
 }