Index: trunk/ippScripts/scripts/dist_component.pl
===================================================================
--- trunk/ippScripts/scripts/dist_component.pl	(revision 23255)
+++ trunk/ippScripts/scripts/dist_component.pl	(revision 23295)
@@ -122,5 +122,5 @@
 if (-e $tmpdir) {
     if (-d $tmpdir) {
-        my $rc = system "rm -r $tmpdir"; 
+        my $rc = system "rm -r $tmpdir";
         &my_die("cannot rm $tmpdir return code: $rc", $dist_id, $component, $PS_EXIT_UNKNOWN_ERROR) if $rc;
     } else {
@@ -272,5 +272,5 @@
         my $clean_mdc = join "", @data;
 
-        my $mdlist = $mdcParser->parse($clean_mdc) or 
+        my $mdlist = $mdcParser->parse($clean_mdc) or
                 &my_die("failed to parse clean.mdc", $dist_id, $component, $PS_EXIT_UNKNOWN_ERROR);
 
@@ -293,6 +293,6 @@
             next if $rule eq "STAGE";
             my $keep_on_clean = $product_list->{$rule};
-            my $fn = $ipprc->filename($rule, $path_base, $component) or 
-                &my_die("Missing entry from camera config: $rule", $dist_id, $component, 
+            my $fn = $ipprc->filename($rule, $path_base, $component) or
+                &my_die("Missing entry from camera config: $rule", $dist_id, $component,
                     $PS_EXIT_CONFIG_ERROR);
     #        printf "%-16.16s\t%s\t%s\n",  $rule, $clean, $fn;
@@ -323,4 +323,6 @@
     my $exit_code = shift;      # Exit code to add
 
+    $exit_code = $PS_EXIT_PROG_ERROR unless defined $exit_code;
+
     my $command = "$disttool -addprocessedcomponent";
     $command   .= " -dist_id $dist_id";