Update perl asm scripts include paths for perlasm.

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

diff --git a/crypto/cast/asm/cast-586.pl b/crypto/cast/asm/cast-586.pl
index 6be0bfe57245e75fd0f90fafaffffcf4de51bf03..bf6810d335f25310b06e303623e7573c75c40ef9 100644 (file)
--- a/crypto/cast/asm/cast-586.pl
+++ b/crypto/cast/asm/cast-586.pl
@@ -3,7 +3,8 @@
 # define for pentium pro friendly version
 $ppro=1;
 
 # define for pentium pro friendly version
 $ppro=1;
 

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

 require "x86asm.pl";
 require "cbc.pl";
 
 require "x86asm.pl";
 require "cbc.pl";