restore change undone in 1.831 (apparently by accident)
[oweals/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         }