Generate warning text

[openssl.git] / Configure

diff --git a/Configure b/Configure
index 2e88a731853818c658f3c643830a4b37036a0690..d5637401c47b95eabf6c2fb8653d9c1a800a3ac7 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -1752,7 +1752,7 @@ sub run_dofile()
     my $out = shift;
 
     # should we remove $out ?
-    system("$config{perl} -I. -Mconfigdata util/dofile.pl <$in >$out.new");
+    system("$config{perl} -I. -Mconfigdata util/dofile.pl -o\"Configure\" $in > $out.new");
     exit 1 if $? != 0;
     rename("$out.new", $out) || die "Can't rename $out.new, $!";
 }