openssl1.0/util/deleof.pl
2019-08-09 10:00:55 +02:00

8 lines
88 B
Perl
Executable File

#!/usr/local/bin/perl
while (<>)
{
print
last if (/^# DO NOT DELETE THIS LINE/);
}