chiark / gitweb /
Macroize submit buttons so we can mess with them more easily
[disorder] / scripts / macro-docs
index 84f1f42e33f890ea43f18a8ee799be1146e60d5a..51586ea4385d6872e154466a5ca93ff91da977e1 100755 (executable)
@@ -6,7 +6,7 @@ my $name;
 my $docs;
 while(defined($_ = <>)) {
   chomp;
-  if(!defined $name and m,^/\* (\@([a-z\-]+).*),) {
+  if(!defined $name and m,^/\*! (\@?([a-z\-]+).*),) {
     $name = $2;
     my $heading = $1;
     $docs = [$heading];