Changeset 10478 for trunk/gsdl/perllib/plugin.pm

Timestamp:

2005-08-11T10:35:04+12:00 (19 years ago)

Author:

kjdon

Message:

arcPlug now knows about keepold, and if its not set, it wont try to do incremental building

File:

• trunk/gsdl/perllib/plugin.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugin.pm

@@ -45 +45 @@
 sub load_plugins {
     my ($plugin_list) = shift @_;
-    ($verbosity, $outhandle, $failhandle, $globaloptions) = @_; # globals
+    my $keepold;
+    ($verbosity, $outhandle, $failhandle, $globaloptions, $keepold) = @_; # globals
     my @plugin_objects = ();
-
+    $keepold = 0 unless (defined $keepold && $keepold == 1);
+    print STDERR "keepold = $keepold\n";
     $verbosity = 2 unless defined $verbosity;
     $outhandle = 'STDERR' unless defined $outhandle;
@@ -89 +91 @@
     # initialize plugin
     $plugobj->init($verbosity, $outhandle, $failhandle);
+    
+    $plugobj->set_keepold($keepold);
 
     # add this object to the list