equal
deleted
inserted
replaced
27 # Except as contained in this notice, the name of a copyright holder |
27 # Except as contained in this notice, the name of a copyright holder |
28 # shall not be used in advertising or otherwise to promote the sale, use |
28 # shall not be used in advertising or otherwise to promote the sale, use |
29 # or other dealings in this Software without prior written authorization |
29 # or other dealings in this Software without prior written authorization |
30 # of the copyright holder. |
30 # of the copyright holder. |
31 # |
31 # |
32 # ident "@(#)find-build-errors 1.1 08/08/07 SMI" |
32 # ident "@(#)find-build-errors 1.2 09/01/11 SMI" |
33 # |
33 # |
34 |
34 |
35 require 5.005; # minimal Perl version required |
35 require 5.005; # minimal Perl version required |
36 use strict; # |
36 use strict; # |
37 use diagnostics; # |
37 use diagnostics; # |
234 # Clear saved lines for each new package |
234 # Clear saved lines for each new package |
235 if ($l =~ m{^[*]+ Making the \S+ package [*]+$}ms) { |
235 if ($l =~ m{^[*]+ Making the \S+ package [*]+$}ms) { |
236 @pkglines = (); |
236 @pkglines = (); |
237 } |
237 } |
238 |
238 |
239 if ($l =~ m{Packaging was not successful.}ms) { |
239 if ($l =~ m{(Packaging was not successful.|was not found ; skipping)}ms) { |
240 print join('', @pkglines); |
240 print join('', @pkglines); |
241 } else { |
241 } else { |
242 push @pkglines, $l; |
242 push @pkglines, $l; |
243 } |
243 } |
244 } |
244 } |