Update perl asm scripts include paths for perlasm.

[openssl.git] / crypto / des / asm / crypt586.pl

diff --git a/crypto/des/asm/crypt586.pl b/crypto/des/asm/crypt586.pl
index 0299884af7849f693ed8dc5e4f82273322c6b853..e36f7d44bd7dc4e71f35df07e795a275ddb5fefb 100644 (file)
--- a/crypto/des/asm/crypt586.pl
+++ b/crypto/des/asm/crypt586.pl
@@ -6,7 +6,8 @@
 # things perfect.
 #
 
 # things perfect.
 #
 

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

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