Lines Matching refs:blurb
158 my $blurb;
166 if (defined ($blurb)) {
167 if(is_legalese ($blurb)) {
169 push(@{$blurbs{$fname}}, $blurb);
171 my @b = ($blurb);
176 $blurb = undef;
188 if (defined $blurb) {
189 $blurb = $blurb . "\n" . $line;
191 $blurb = $line;
197 if (defined ($blurb) and is_legalese ($blurb)) {
199 push(@{$blurbs{$fname}}, $blurb);
201 my @b = ($blurb);
210 my $blurb;
243 # add to blurb if not the start of the blurb
246 if (defined ($blurb)) {
247 if(is_legalese ($blurb)) {
249 push(@{$blurbs{$fname}}, $blurb);
251 my @b = ($blurb);
256 $blurb = undef;
270 if (defined $blurb) {
271 $blurb = $blurb . "\n" . $line;
273 $blurb = $line;
278 if (defined ($blurb) and is_legalese ($blurb)) {
280 push(@{$blurbs{$fname}}, $blurb);
282 my @b = ($blurb);
291 my $blurb;
318 # add to blurb if not the start of the blurb
321 if (defined ($blurb)) {
322 if(is_legalese ($blurb)) {
324 push(@{$blurbs{$fname}}, $blurb);
326 my @b = ($blurb);
331 $blurb = undef;
342 if (defined $blurb) {
343 $blurb = $blurb . "\n" . $line;
345 $blurb = $line;
350 if (defined ($blurb) and is_legalese ($blurb)) {
352 push(@{$blurbs{$fname}}, $blurb);
354 my @b = ($blurb);
688 foreach my $blurb (@{$blurbs{$fname}}) {
689 if ($blurb =~ /\b(gpl|lgpl|gnu\s+(library\s+|lesser\s+|)general\s+public\s+license)\b/si) {
693 if (defined ($comments{$blurb})) {
694 $comments{$blurb} .= ", $fname";
696 $comments{$blurb} = $fname;