Squeeze a bit more speed out of MD5 assembler.
[openssl.git] / util / deleof.pl
1 #!/usr/local/bin/perl
2
3 while (<>)
4         {
5         print
6         last if (/^# DO NOT DELETE THIS LINE/);
7         }