Refactor file writing - adapt util/dofile.pl to use with_fallback

Reviewed-by: Rich Salz <rsalz@openssl.org>

diff --git a/util/dofile.pl b/util/dofile.pl
index 4bf90babbf8074e75052a4e34a41b42c788dc33a..74d1520ed0f67063510948ba432fc2563bb60188 100644 (file)
--- a/util/dofile.pl
+++ b/util/dofile.pl
@@ -7,7 +7,13 @@
 
 use strict;
 use warnings;
-use Text::Template;
+
+# Because we know that Text::Template isn't a core Perl module, we use
+# a fallback in case it's not installed on the system
+use File::Basename;
+use File::Spec::Functions;
+use lib catdir(dirname(__FILE__));
+use with_fallback qw(Text::Template);
 
 # We actually expect to get the following hash tables from configdata:
 #