Update perl asm scripts include paths for perlasm.

diff --git a/crypto/bf/asm/bf-586.pl b/crypto/bf/asm/bf-586.pl
index b556642..b74cfba 100644 (file)
--- a/crypto/bf/asm/bf-586.pl
+++ b/crypto/bf/asm/bf-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";
 require "cbc.pl";
 
 require "x86asm.pl";
 require "cbc.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);

diff --git a/crypto/bn/asm/co-586.pl b/crypto/bn/asm/co-586.pl
index 5d962cb..57101a6 100644 (file)
--- a/crypto/bn/asm/co-586.pl
+++ b/crypto/bn/asm/co-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);

diff --git a/crypto/cast/asm/cast-586.pl b/crypto/cast/asm/cast-586.pl
index 6be0bfe..bf6810d 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";
 

diff --git a/crypto/des/asm/crypt586.pl b/crypto/des/asm/crypt586.pl
index 0299884..e36f7d4 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");

diff --git a/crypto/des/asm/des-586.pl b/crypto/des/asm/des-586.pl
index de60136..32282bd 100644 (file)
--- a/crypto/des/asm/des-586.pl
+++ b/crypto/des/asm/des-586.pl
@@ -4,7 +4,8 @@
 # Svend Olaf Mikkelsen <svolaf@inet.uni-c.dk>
 #
 
 # Svend Olaf Mikkelsen <svolaf@inet.uni-c.dk>
 #
 

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

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

diff --git a/crypto/md5/asm/md5-586.pl b/crypto/md5/asm/md5-586.pl
index 76ac235..6cb66bb 100644 (file)
--- a/crypto/md5/asm/md5-586.pl
+++ b/crypto/md5/asm/md5-586.pl
@@ -7,7 +7,8 @@
 
 $normal=0;
 
 
 $normal=0;
 

-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);

diff --git a/crypto/ripemd/asm/rmd-586.pl b/crypto/ripemd/asm/rmd-586.pl
index 4f3c4c9..e8b2bc2 100644 (file)
--- a/crypto/ripemd/asm/rmd-586.pl
+++ b/crypto/ripemd/asm/rmd-586.pl
@@ -5,7 +5,8 @@
 
 $normal=0;
 
 
 $normal=0;
 

-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);

diff --git a/crypto/whrlpool/asm/wp-mmx.pl b/crypto/whrlpool/asm/wp-mmx.pl
index d52439b..32cf163 100644 (file)
--- a/crypto/whrlpool/asm/wp-mmx.pl
+++ b/crypto/whrlpool/asm/wp-mmx.pl
@@ -45,7 +45,8 @@
 #      non-MMX implementation would actually pay off, but till
 #      opposite is proved "unlikely" is assumed.
 
 #      non-MMX implementation would actually pay off, but till
 #      opposite is proved "unlikely" is assumed.
 

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

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

diff --git a/crypto/x86cpuid.pl b/crypto/x86cpuid.pl
index 0fb0657..c329111 100644 (file)
--- a/crypto/x86cpuid.pl
+++ b/crypto/x86cpuid.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/env perl
 
 #!/usr/bin/env perl
 

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

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