#!/usr/bin/perl

foreach $i (qw(snmplib/Makefile agent/Makefile agent/mibgroup/Makefile apps/Makefile apps/snmpnetstat/Makefile)) {
    print STDERR "processing $i... ";
    open(IN,"$i");
    while ($_ = <IN>,!/^# DO NOT DELETE THIS LINE/) { }
    open(OUT,">$i.in.new");
    open(INN,"$i.in");
    while ($_ = <INN>,!/^# DO NOT DELETE THIS LINE/) { print OUT $_; }
    print OUT $_;
    while ($_ = <IN>) { print OUT $_; }
    close(IN);
    close(OUT);
    close(INN);
    rename("$i.in.new","$i.in");
    print STDERR "done\n";
}