Windows build system: get uplink right.

[openssl.git] / ms / uplink-ia64.pl

diff --git a/ms/uplink-ia64.pl b/ms/uplink-ia64.pl
index 4204c73d586df17776591c7e94b038a80d62a261..089cd3913fb1b23bf290028331609ab9c815f1dc 100755 (executable)
--- a/ms/uplink-ia64.pl
+++ b/ms/uplink-ia64.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/env perl
 
+$output = pop;
+open STDOUT,">$output";
+
 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
 push(@INC,"${dir}.");
 
@@ -48,3 +51,5 @@ for ($i=1;$i<=$N;$i++) {   print "      data8   \@fptr(lazy$i#)\n";   }
 print <<___;
 .size   OPENSSL_UplinkTable,.-OPENSSL_UplinkTable#
 ___
+
+close STDOUT;