root
/
openssl
mirror of https://github.com/openssl/openssl.git
1
0
Fork 0
Code Issues Actions 7 Packages Projects Releases Wiki Activity

die() in .tmpl file should not be silently ignored. 

call to die() in perl templates is currently ignored.
any error printed by die() commad appears in template
output.

In order to make sure die() terminates processing we
must ensure we emite `undef` value. This is ensured
by adding a `BROKEN` callback to `fill_in()` Template
method. The callback must return undef to stop processing.

Reviewed-by: Richard Levitte <levitte@openssl.org>
Reviewed-by: Tomas Mraz <tomas@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/26064)

(cherry picked from commit 578760bb6a)
This commit is contained in:
Alexandr Nedvedicky 2024-11-26 09:05:09 +01:00 committed by Tomas Mraz
parent 4211c28976
commit a1828c116b
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
configdata.pm.in
View File

@ -145,7 +145,7 @@ _____
# defined in one template stick around for the # defined in one template stick around for the
# next, making them combinable # next, making them combinable
PACKAGE => 'OpenSSL::safe') PACKAGE => 'OpenSSL::safe')
or die $Text::Template::ERROR; or die $OpenSSL::Template::ERROR;
close BUILDFILE; close BUILDFILE;
rename("$buildfile.new", $buildfile) rename("$buildfile.new", $buildfile)
or die "Trying to rename $buildfile.new to $buildfile: $!"; or die "Trying to rename $buildfile.new to $buildfile: $!";
@ -167,7 +167,7 @@ _____
# defined in one template stick around for the # defined in one template stick around for the
# next, making them combinable # next, making them combinable
PACKAGE => 'OpenSSL::safe') PACKAGE => 'OpenSSL::safe')
or die $Text::Template::ERROR; or die $OpenSSL::Template::ERROR;
close CONFIGURATION_H; close CONFIGURATION_H;
# When using stat() on Windows, we can get it to perform better by # When using stat() on Windows, we can get it to perform better by

9
util/perl/OpenSSL/Template.pm
View File

@ -42,6 +42,14 @@ use Text::Template 1.46;
our @ISA = qw(Text::Template); # parent our @ISA = qw(Text::Template); # parent
sub tmpl_error {
my (%err_dict) = @_;
$ERROR = $err_dict{"error"};
return undef;
}
sub new { sub new {
my $class = shift; my $class = shift;
@ -66,6 +74,7 @@ sub fill_in {
output_on => sub { $self->output_on() }, output_on => sub { $self->output_on() },
output_off => sub { $self->output_off() }, output_off => sub { $self->output_off() },
%hash }, %hash },
BROKEN => \&tmpl_error,
%opts); %opts);
} }