Changeset 29276
- Timestamp:
- 2014-09-12T10:43:44+12:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/parallelbuildinginexport.pm
r29257 r29276 45 45 46 46 our $start_time; 47 our $filelist_duration; 47 48 48 49 BEGIN … … 59 60 print &makeHeader('Parallel Import Complete') . "\n"; 60 61 print ' Ended: ' . @{$end_time}[0] . '.' . @{$end_time}[1] . "\n"; 62 if (defined $filelist_duration) 63 { 64 print ' Generating raw manifest: ' . sprintf('%0.6f', $filelist_duration) . "\n"; 65 } 61 66 print ' Duration: ' . sprintf('%0.6f', $duration) . "\n"; 62 67 print '=' x 80 . "\n"; … … 185 190 186 191 # create the list of files to import 192 my $filelist_start_time = [&gettimeofday()]; 187 193 my $overwrite = 1; 188 194 my $tmp_filelist = &util::filename_cat($tmp_dir_path, "filelist.txt"); … … 205 211 close ($filelist); 206 212 } 213 my $filelist_end_time = [&gettimeofday()]; 214 $filelist_duration = tv_interval($filelist_start_time, $filelist_end_time); 207 215 208 216 # Determine if we've been provided a mpi.conf file to indicate the other
Note:
See TracChangeset
for help on using the changeset viewer.