diff options
author | Richard Levitte <levitte@openssl.org> | 2016-09-21 01:49:04 +0200 |
---|---|---|
committer | Richard Levitte <richard@levitte.org> | 2016-09-21 02:40:11 +0200 |
commit | 87030f54b23d39d9f4b1122b80adc6b7f8deab53 (patch) | |
tree | aa6728ba510717e9a630b2bc03bb05dd681f98f0 /util | |
parent | d6637ce17ec5b811ea06543f3b584d25bfdeaaa3 (diff) |
util/dofile.pl: report if a template couldn't be loaded
Reviewed-by: Rich Salz <rsalz@openssl.org>
(cherry picked from commit f6be8315cbdb4173008b5917d2b0fc80bb0bf06b)
Diffstat (limited to 'util')
-rw-r--r-- | util/dofile.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/util/dofile.pl b/util/dofile.pl index e0333fe568..8b0c7b41c0 100644 --- a/util/dofile.pl +++ b/util/dofile.pl @@ -159,7 +159,11 @@ my @autowarntext = ("WARNING: do not edit!", my $prev_linecount = 0; my $text = @ARGV - ? join("", map { my $x = "{- output_reset_on() -}".Text::Template::_load_text($_); + ? join("", map { my $x = Text::Template::_load_text($_); + if (!defined($x)) { + die $Text::Template::ERROR, "\n"; + } + $x = "{- output_reset_on() -}" . $x; my $linecount = $x =~ tr/\n//; $prev_linecount = ($linecount += $prev_linecount); $lines{$linecount} = $_; |