mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-01-18 13:44:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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)
This commit is contained in:
Alexandr Nedvedicky 2024-11-26 09:05:09 +01:00 committed by Tomas Mraz
parent fdded23b44
commit 578760bb6a
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
# next, making them combinable
PACKAGE => 'OpenSSL::safe')
or die $Text::Template::ERROR;
or die $OpenSSL::Template::ERROR;
close BUILDFILE;
rename("$buildfile.new", $buildfile)
or die "Trying to rename $buildfile.new to $buildfile: $!";
@ -167,7 +167,7 @@ _____
# defined in one template stick around for the
# next, making them combinable
PACKAGE => 'OpenSSL::safe')
or die $Text::Template::ERROR;
or die $OpenSSL::Template::ERROR;
close CONFIGURATION_H;
# 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
sub tmpl_error {
my (%err_dict) = @_;
$ERROR = $err_dict{"error"};
return undef;
}
sub new {
my $class = shift;
@ -66,6 +74,7 @@ sub fill_in {
output_on => sub { $self->output_on() },
output_off => sub { $self->output_off() },
%hash },
BROKEN => \&tmpl_error,
%opts);
}