Changeset 25115

Timestamp:

2012-02-21T13:26:35+13:00 (12 years ago)

Author:

jmt12

Message:

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

File:

• gs2-extensions/parallel-building/trunk/src/perllib/basebuilder.pm (modified) (1 diff)

gs2-extensions/parallel-building/trunk/src/perllib/basebuilder.pm

@@ -55 +55 @@
 
 sub new {
-    my ($class, $site, $collection, $source_dir, $build_dir, $verbosity, 
-    $maxdocs, $debug, $keepold, $incremental, $incremental_mode,
-    $remove_empty_classifications, 
-    $outhandle, $no_text, $failhandle, $gli) = @_;
+  my ($class, $site, $collection, $source_dir, $build_dir, $verbosity, 
+      $maxdocs, $debug, $keepold, $incremental, $incremental_mode,
+      $remove_empty_classifications, 
+      $outhandle, $no_text, $failhandle, $gli);
+
+  # Somehow this is sometimes called without the site argument... detect and
+  # match up arguments appropriately
+  if (scalar(@_) == 16)
+  {
+    ($class, $site, $collection, $source_dir, $build_dir, $verbosity,
+     $maxdocs, $debug, $keepold, $incremental, $incremental_mode,
+     $remove_empty_classifications,
+     $outhandle, $no_text, $failhandle, $gli) = @_;
+  }
+  else
+  {
+    ($class, $collection, $source_dir, $build_dir, $verbosity,
+     $maxdocs, $debug, $keepold, $incremental, $incremental_mode,
+     $remove_empty_classifications,
+     $outhandle, $no_text, $failhandle, $gli) = @_;
+  }
 
     $outhandle = *STDERR unless defined $outhandle;