Fixed to punt "# TEMPLATE BEGINS HERE"
authorMiro Jurisic <meeroh@mit.edu>
Thu, 30 Jul 1998 16:15:29 +0000 (16:15 +0000)
committerMiro Jurisic <meeroh@mit.edu>
Thu, 30 Jul 1998 16:15:29 +0000 (16:15 +0000)
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@10762 dc483132-0cff-0310-8789-dd5450dbe970

src/mac/Templatify.pl

index 3a76f4ef39fd507bac17c057ac1f2cb6f0096c55..0749fadebf6145ad9ac2817eb941084a5bb95971 100644 (file)
@@ -1,3 +1,5 @@
 #!/usr/local/bin/perl -w
-while (<STDIN>) { last if /^#  TEMPLATE BEGINS HERE$/ }
-do { y#\245:\304\266#\*/:\\#; print } while (<STDIN>);
+$_=<STDIN>;
+$_=<STDIN> while $_!~/^#\s*TEMPLATE BEGINS HERE\s*$/;
+$_=<STDIN> while /^# *TEMPLATE BEGINS HERE\s*$/;
+while (<STDIN>) { y#\245:\304\266#\*/:\\#; print; }