Changeset 18555 for gsdl/trunk/perllib/convertutil.pm
- Timestamp:
- 2009-02-20T11:04:15+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/convertutil.pm
r18474 r18555 99 99 # Default are provided for these monitor functions if none specified 100 100 101 101 102 my $verbosity = $options->{'verbosity'}; 102 103 my $outhandle = $options->{'outhandle'}; … … 257 258 my ($command,$ofilename,$options) = @_; 258 259 260 my $outhandle = $options->{'outhandle'}; 261 my $verbosity = $options->{'verbosity'}; 262 my $message_prefix = $options->{'message_prefix'}; 263 259 264 my $regenerated = 0; 260 265 my $result = ""; 261 266 my $had_error = 0; 267 268 my $args_filename = "$ofilename.args"; 262 269 263 270 if (!-e $ofilename) { … … 265 272 = regenerate_general_cmd($command,$ofilename,$options); 266 273 } 274 elsif (-M $ofilename > -M $args_filename) { 275 # Source files has been updated/changed in some way 276 # => regenerate 277 print $outhandle "$ofilename modified more recently than cached version\n"; 278 279 ($regenerated,$result,$had_error) 280 = regenerate_general_cmd($command,$ofilename,$options); 281 } 267 282 else { 268 283 # file exists => check to see if command to generate it has changed 269 my $args_filename = "$ofilename.args"; 284 270 285 if (open (ARGSIN,"<$args_filename")) { 271 286 my $prev_command = <ARGSIN>; … … 282 297 } 283 298 else { 284 my $outhandle = $options->{'outhandle'};285 my $verbosity = $options->{'verbosity'};286 287 my $message_prefix = $options->{'message_prefix'};288 289 299 my ($ofile) = ($ofilename =~ m/^.*(cached.*)$/); 290 300 … … 310 320 } 311 321 else { 312 my $outhandle = $options->{'outhandle'};313 my $message_prefix = $options->{'message_prefix'};314 315 322 print $outhandle " $message_prefix: No cached previous args found. Regenerating $ofilename\n"; 316 323
Note:
See TracChangeset
for help on using the changeset viewer.