Index: trunk/ippScripts/scripts/dist_bundle.pl
===================================================================
--- trunk/ippScripts/scripts/dist_bundle.pl	(revision 26044)
+++ trunk/ippScripts/scripts/dist_bundle.pl	(revision 26151)
@@ -60,9 +60,9 @@
 # Parse the command-line arguments
 my ($camera, $stage, $stage_id, $component, $path_base, $chip_path_base, $clean);
-my ($outdir, $run_state, $data_state, $magicked, $no_magic, $poor_quality, $results_file);
+my ($outdir, $run_state, $data_state, $magicked, $no_magic, $poor_quality, $results_file, $prefix);
 my ($dbname, $save_temps, $verbose, $no_update, $logfile);
 
 GetOptions(
-           'results_file=s' => \$results_file,     # camera for evaluating file rules
+           'results_file=s' => \$results_file,     # ouptput file name for results
            'camera=s'       => \$camera,     # camera for evaluating file rules
            'stage=s'        => \$stage,      # raw, chip, warp, or diff
@@ -77,4 +77,5 @@
            'magicked'       => \$magicked,   # magicked state for this component
            'outdir=s'       => \$outdir,     # "directory" for outputs
+           'prefix=s'       => \$prefix,     # "prefix" to apply to filenames
            'clean'          => \$clean,      # create clean distribution
            'save-temps'     => \$save_temps, # Save temporary files?
@@ -276,5 +277,5 @@
     my $tbase = basename($path_base);
     $tbase .= ".$component" if $component;
-    $file_name = "$tbase.tgz";
+    $file_name = ($prefix ? $prefix : "") . "$tbase.tgz";
     my $tarfile = "$outdir/$file_name";