On VMS, stdout may very well lead to a file that is written to in a
[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         }