Index: trunk/ippScripts/scripts/dist_bundle.pl
===================================================================
--- trunk/ippScripts/scripts/dist_bundle.pl	(revision 27449)
+++ trunk/ippScripts/scripts/dist_bundle.pl	(revision 27718)
@@ -8,6 +8,7 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 # print "\n\n";
-# print "Starting script $0 on $host\n\n";
+# print "Starting script $0 on $host at $date\n\n";
 
 use vars qw( $VERSION );
@@ -115,5 +116,5 @@
 
 # Get the list of data products for this component
-# note: We my_die in get_file_list if something goes wrong. 
+# note: We my_die in get_file_list if something goes wrong.
 
 my $file_list = get_file_list($stage, $component, $path_base, $clean);
@@ -193,5 +194,5 @@
     $num_files++;
     if ($image_type && $nan_masked_pixels) {
-        # save the 
+        # save the
         if ($image_type eq 'image') {
             $image = $file_name;
@@ -222,5 +223,5 @@
     # One last check as to whether magic has been applied to the inputs
 
-    # Note: the sql for disttool -pendingcomponent won't select a component that 
+    # Note: the sql for disttool -pendingcomponent won't select a component that
     # requires magic and hasn't been magicked, but we check again here
 
@@ -327,5 +328,5 @@
 ### Pau.
 
-# return the image type (image, mask, or variance) if this file rule refers to 
+# return the image type (image, mask, or variance) if this file rule refers to
 # one of the big fits files that are not included in a clean distribution
 sub get_image_type {
@@ -360,5 +361,5 @@
 sub open_with_retries {
     my $name = shift;
-    
+
     my $tries = 1;
     my $max_tries = 5;
@@ -372,5 +373,5 @@
         }
     }
-    
+
     &my_die("failed to open $name after $max_tries tries\n", $component,
                     $PS_EXIT_DATA_ERROR) if (!$opened);