Unify all assembler file generators
[openssl.git] / crypto / sha / asm / sha256-c64xplus.pl
index 19d0f7222d66d93c341deb221ee7f69e5fff44c2..480b49e4d0e2aa9172c3d74edafb6f3393feebef 100644 (file)
@@ -26,8 +26,7 @@
 # service routines are expected to preserve it and for own well-being
 # zero it upon entry.
 
-while (($output=shift) && ($output!~/\w[\w\-]*\.\w+$/)) {}
-open STDOUT,">$output";
+$output = pop and open STDOUT,">$output";
 
 ($CTXA,$INP,$NUM) = ("A4","B4","A6");            # arguments
  $K256="A3";