bugfix: 0 - w (w != 0) is actually negative

[oweals/openssl.git] / util / deleof.pl

#!/usr/local/bin/perl

while (<>)
        {
        print
        last if (/^# DO NOT DELETE THIS LINE/);
        }