--- pca.original	2007-04-10 10:56:41.000000000 +1200
+++ pca_af.pl	2007-04-10 12:04:47.000000000 +1200
@@ -61,6 +61,8 @@
   "root|R|s|DIR||Alternative root directory",
   "wget||s|FILE|/usr/sfw/bin/wget /usr/local/bin/wget /opt/csw/bin/wget /usr/bin/wget|Path to wget command",
   "wgetproxy||s|URL||Default proxy for wget",
+  "ifails||i|NUM|0|Number of install failures to tolerate",
+  "isucceeds||i|NUM|0|Number of install failures to tolerate",
   "debug|V|||0|Print debug information",
   "help|h|||0|Display this help",
   "version|v|||0|Display version information",
@@ -602,7 +604,13 @@
     }
   }
 
-  if ($o{noreboot} && ($p_ci || $p_bi || $p_c || $p_b)) {
+  if ($o{isucceeds} > 0 && $c{inst} >= $o{isucceeds}) {
+    print "skipped - $o{isucceeds} installs succeeded"; $c{skipinst}++;
+  }
+  elsif ($o{ifails} > 0 && $c{failinst} >= $o{ifails}) {
+    print "skipped - $o{ifails} installs failed"; $c{skipinst}++;
+  }
+  elsif ($o{noreboot} && ($p_ci || $p_bi || $p_c || $p_b)) {
     print "skipped"; $c{skipinst}++;
   } elsif ($o{pretend}) {
     print "pretended"; $c{skipinst}++;