Update perl asm scripts include paths for perlasm.

[openssl.git] / crypto / bn / asm / bn-586.pl

diff --git a/crypto/bn/asm/bn-586.pl b/crypto/bn/asm/bn-586.pl
index 1468906..332ef3e 100644 (file)
--- a/crypto/bn/asm/bn-586.pl
+++ b/crypto/bn/asm/bn-586.pl
@@ -1,6 +1,7 @@
 #!/usr/local/bin/perl
 
 #!/usr/local/bin/perl
 

-push(@INC,"perlasm","../../perlasm");
+$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
+push(@INC,"${dir}","${dir}../../perlasm");

 require "x86asm.pl";
 
 &asm_init($ARGV[0],$0);
 require "x86asm.pl";
 
 &asm_init($ARGV[0],$0);