open-src/util/build-tools/find-build-errors
changeset 702 1c8695b0715f
parent 606 068c11b419c9
child 810 6f94d3da0552
--- a/open-src/util/build-tools/find-build-errors	Wed May 13 07:31:10 2009 -0700
+++ b/open-src/util/build-tools/find-build-errors	Wed May 13 16:52:41 2009 -0700
@@ -1,7 +1,7 @@
 #! /usr/perl5/bin/perl -w
 
 #
-# Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
+# Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
 # Use is subject to license terms.
 #
 # Permission is hereby granted, free of charge, to any person obtaining a
@@ -29,7 +29,7 @@
 # or other dealings in this Software without prior written authorization
 # of the copyright holder.
 #
-# ident "@(#)find-build-errors 1.2     09/01/11 SMI"
+# ident "@(#)find-build-errors 1.3     09/05/13 SMI"
 #
 
 require 5.005;				# minimal Perl version required
@@ -236,10 +236,16 @@
       @pkglines = ();
     }
 
-    if ($l =~ m{(Packaging was not successful.|was not found ; skipping)}ms) {
+    # Warnings we can ignore
+    next if $l =~ m{^WARNING: parameter \<PSTAMP\> set}ms;
+    next if $l =~ m{^WARNING: parameter \<CLASSES\> set to "none"}ms;
+
+    push @pkglines, $l;
+
+    if (($l =~ m{(Packaging was not successful.|was not found ; skipping)}ms)
+	|| ($l =~ m{^WARNING: }ms)) {
       print join('', @pkglines);
-    } else {
-      push @pkglines, $l;
+      @pkglines = ();
     }
   }