Copy comments on define lines into skeleton

diff --git a/make-skeleton.pl b/make-skeleton.pl
index 1a0124736d391b358d5dcefc2ec94d2f8adb9212..cbb78d1922cf6635f65894378e0915e48ca3b583 100755 (executable)
--- a/make-skeleton.pl
+++ b/make-skeleton.pl
@@ -37,9 +37,13 @@ while(my $line = <STDIN>) {
   }
 
   # :define directive?
-  elsif ($line =~ /^(:\S+)\s+/) {
+  elsif ($line =~ /^(:\S+)\s+[^#]*(#.*)?$/) {
     die "Directive not within section" if not defined $section and not $skipsec;
-    print "#$1\n" if not $skipsec;
+    if (defined $2) {
+        print "#$1 $2\n" if not $skipsec;
+    } else {
+        print "#$1\n" if not $skipsec;
+    }
     while (my $cline = <STDIN>) { chomp $cline; last if $cline eq "."; }
   }