Pārlūkot izejas kodu

wikiheaders: Maybe fix perl warning.

Reference Issue #11944.
Ryan C. Gordon 3 mēneši atpakaļ
vecāks
revīzija
2b8fb0bdd4
1 mainītis faili ar 2 papildinājumiem un 1 dzēšanām
  1. 2 1
      build-scripts/wikiheaders.pl

+ 2 - 1
build-scripts/wikiheaders.pl

@@ -2792,7 +2792,8 @@ __EOF__
         my $decl = $headerdecls{$sym};
         my $str = '';
 
-        $brief = "$brief";
+        # the "$brief" makes sure this is a copy of the string, which is doing some weird reference thing otherwise.
+        $brief = defined $brief ? "$brief" : '';
         $brief =~ s/\A[\s\n]*\= .*? \=\s*?\n+//ms;
         $brief =~ s/\A[\s\n]*\=\= .*? \=\=\s*?\n+//ms;
         $brief =~ s/\A(.*?\.) /$1\n/;  # \brief should only be one sentence, delimited by a period+space. Split if necessary.