Harmonize s390x assembler modules with "catch-all" rules from commit#19749.

[openssl.git] / crypto / bn / asm / s390x-mont.pl

diff --git a/crypto/bn/asm/s390x-mont.pl b/crypto/bn/asm/s390x-mont.pl
index d23251033b003782b0ada3aefb35d3b0c32b0cf2..502fa2e01fdecf09bd729469c96eddf6be07f289 100644 (file)
--- a/crypto/bn/asm/s390x-mont.pl
+++ b/crypto/bn/asm/s390x-mont.pl
@@ -32,6 +32,9 @@
 # Reschedule to minimize/avoid Address Generation Interlock hazard,
 # make inner loops counter-based.
 
+while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}
+open STDOUT,">$output";
+
 $mn0="%r0";
 $num="%r1";