Changeset 11640 for trunk

Timestamp:

2006-04-11T16:35:15+12:00 (18 years ago)

Author:

kjdon

Message:

fixed a bug that John T noticed, line 185 - parameters passed to 'new buildproc' were not initialised

File:

• trunk/gsdl/perllib/basebuilder.pm (modified) (1 diff)

trunk/gsdl/perllib/basebuilder.pm

@@ -183 +183 @@
     require "$buildprocdir/$buildproctype.pm";
 
-    eval("\$self->{'buildproc'} = new $buildproctype(\$collection, " .
-     "\$source_dir, \$build_dir, \$keepold, \$verbosity, \$outhandle)");
+    eval("\$self->{'buildproc'} = new $buildproctype(\$self->{'collection'}, " .
+     "\$self->{'source_dir'}, \$self->{'build_dir'}, \$self->{'keepold'}, \$self->{'verbosity'}, \$self->{'outhandle'})");
     die "$@" if $@;