EVP: Add new domparams and key generation functionality

[openssl.git] / util / dofile.pl

diff --git a/util/dofile.pl b/util/dofile.pl
index a82b987eba9c5dc18a58379c86a033ad392a23f6..6d4ffa4abdff43c1ba58b0bdda020a3dbec89396 100644 (file)
--- a/util/dofile.pl
+++ b/util/dofile.pl
@@ -40,6 +40,14 @@ my @autowarntext = (
         . (scalar(@ARGV) > 0 ? " from " .join(", ", @ARGV) : "")
 );
 
+if (defined($opts{s})) {
+    local $/ = undef;
+    open VARS, $opts{s} or die "Couldn't open $opts{s}, $!";
+    my $contents = <VARS>;
+    close VARS;
+    eval $contents;
+    die $@ if $@;
+}
 die "Must have input files"
    if defined($opts{i}) and scalar(@ARGV) == 0;
 
@@ -63,8 +71,6 @@ sub errorcallback {
 
 my $prepend = <<"_____";
 use File::Spec::Functions;
-_____
-$prepend .= <<"_____" if defined $target{perl_platform};
 use lib "$FindBin::Bin/../Configurations";
 use lib '$config{builddir}';
 use platform;