X-Git-Url: http://www.git.stargrave.org/?p=dotfiles.git;a=blobdiff_plain;f=bin%2Fbin%2Fdocstringer.pl;h=95def27cae3354487d1cb366d393347306658d4c;hp=e9dcf7b110d7f980625605b70ddf222a30750bcb;hb=80a027c326192db6a29e2307ea4c33e89a446372;hpb=16fb47827e07e5edcb5ce7550b344311ba6841c3

diff --git a/bin/bin/docstringer.pl b/bin/bin/docstringer.pl
index e9dcf7b..95def27 100755
--- a/bin/bin/docstringer.pl
+++ b/bin/bin/docstringer.pl
@@ -69,7 +69,7 @@ foreach my $fn (readdir $dir) {
     open(my $dst, ">:encoding(UTF-8)", "$docBuildDir/$fn") or
         die "can not open $docBuildDir/$fn";
     while(<$src>) {
-        ( print($dst $_) and next ) unless /^\@DOCSTRING (.*)\@$/;
+        ( print($dst $_) and next ) unless /^\s*\@DOCSTRING (.*)\@$/;
         print "\t$fn: $1\n" if $verbose;
         die "unable to find docstring: $1" unless defined $docstrings{$1};
         print $dst $docstrings{$1};