X509_REQ_print_ex(): Correct indentation of extensions, which are attributes

[openssl.git] / configdata.pm.in

diff --git a/configdata.pm.in b/configdata.pm.in
index 6e5c1ad4f674c42099f43aeabd6e4a0052d79089..279b8f75c9f80526ee590d813d0c762c6b652d08 100644 (file)
--- a/configdata.pm.in
+++ b/configdata.pm.in
@@ -121,11 +121,9 @@ unless (caller) {
         use OpenSSL::fallback '{- sourcefile('external', 'perl', 'MODULES.txt') -}';
         use OpenSSL::Template;
 
-        my $prepend = <<"_____";
+        my $prepend = <<'_____';
 use File::Spec::Functions;
 use lib '{- sourcedir('util', 'perl') -}';
-_____
-        $prepend .= <<"_____" if defined $target{perl_platform};
 use lib '{- sourcedir('Configurations') -}';
 use lib '{- $config{builddir} -}';
 use platform;
@@ -247,7 +245,13 @@ _____
         foreach (sort keys %target) {
             next if $_ =~ m|^_| || $_ eq 'template';
             my $quotify = sub {
-                map { (my $x = $_) =~ s|([\\\$\@"])|\\$1|g; "\"$x\""} @_;
+                map {
+                    if (defined $_) {
+                        (my $x = $_) =~ s|([\\\$\@"])|\\$1|g; "\"$x\""
+                    } else {
+                        "undef";
+                    }
+                } @_;
             };
             print '    ', $_, ' => ';
             if (ref($target{$_}) eq "ARRAY") {