Changeset 25115

Show
Ignore:
Timestamp:
21.02.2012 13:26:35 (7 years ago)
Author:
jmt12
Message:

This is sometimes called without the site argument... detect and match up remaining arguments appropriately

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/perllib/basebuilder.pm

    r24668 r25115  
    5555 
    5656sub new { 
    57     my ($class, $site, $collection, $source_dir, $build_dir, $verbosity,  
    58     $maxdocs, $debug, $keepold, $incremental, $incremental_mode, 
    59     $remove_empty_classifications,  
    60     $outhandle, $no_text, $failhandle, $gli) = @_; 
     57  my ($class, $site, $collection, $source_dir, $build_dir, $verbosity,  
     58      $maxdocs, $debug, $keepold, $incremental, $incremental_mode, 
     59      $remove_empty_classifications,  
     60      $outhandle, $no_text, $failhandle, $gli); 
     61 
     62  # Somehow this is sometimes called without the site argument... detect and 
     63  # match up arguments appropriately 
     64  if (scalar(@_) == 16) 
     65  { 
     66    ($class, $site, $collection, $source_dir, $build_dir, $verbosity, 
     67     $maxdocs, $debug, $keepold, $incremental, $incremental_mode, 
     68     $remove_empty_classifications, 
     69     $outhandle, $no_text, $failhandle, $gli) = @_; 
     70  } 
     71  else 
     72  { 
     73    ($class, $collection, $source_dir, $build_dir, $verbosity, 
     74     $maxdocs, $debug, $keepold, $incremental, $incremental_mode, 
     75     $remove_empty_classifications, 
     76     $outhandle, $no_text, $failhandle, $gli) = @_; 
     77  } 
    6178 
    6279    $outhandle = *STDERR unless defined $outhandle;