From a7fbdd80e189420867d2d124244bca0fc1dca129 Mon Sep 17 00:00:00 2001
From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Mon, 16 Feb 2015 00:24:47 -0500
Subject: [PATCH] Fix make-skeleton.pl

---
 make-skeleton.pl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 make-skeleton.pl

diff --git a/make-skeleton.pl b/make-skeleton.pl
old mode 100644
new mode 100755
index cd1362e..9226b8b
--- a/make-skeleton.pl
+++ b/make-skeleton.pl
@@ -14,6 +14,8 @@ sub comments() {
 }
 
 while(my $line = <STDIN>) {
+  chomp $line;
+
   # @section directive?
   if ($line =~ /^@(\S+)\s/) {
     comments() if defined $section;
@@ -25,14 +27,19 @@ while(my $line = <STDIN>) {
   elsif ($line =~ /^(:\S+)\s+/) {
     die "Directive not within section" if not defined $section;
     print "#$1\n";
+    while (my $cline = <STDIN>) { chomp $cline; last if $cline eq "."; }
   }
 
   # "#..." and not "#!..." get passed to template
-  elsif ($line =~ /^#(?!#)/) {
-    print $line;
+  elsif ($line =~ /^\s*#/) {
+    if ($line !~ /^\s*#!/) {
+      print "$line\n";
+    }
   }
 
-  else { die "Unknown line in definition file"; }
+  elsif ($line =~ /^\s*$/) { ; }
+
+  else { die "Unknown line in definition file ($line)"; }
 }
 
 die "No sections encountered" if not defined $section;
-- 
2.50.1