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

Timestamp:

2000-08-20T20:42:28+12:00 (24 years ago)

Author:

sjboddie

Message:

Made a few minor adjustments to perl building code for use with
collectoraction

File:

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

trunk/gsdl/perllib/plugin.pm

@@ -29 +29 @@
 
 sub load_plugins {
-    my ($plugin_list, $verbosity, $outhandle) = @_;
+    my ($plugin_list) = shift @_;
+    ($verbosity, $outhandle) = @_; # globals
     my @plugin_objects = ();
 
     $verbosity = 2 unless defined $verbosity;
+    $outhandle = STDERR unless defined $outhandle;
 
     foreach $pluginoptions (@$plugin_list) {
@@ -86 +88 @@
     }
     
-    if (defined $processor->{'verbosity'} && $processor->{'verbosity'} >= 2) {
-    print STDERR "WARNING - no plugin could process " . 
+    if ($verbosity >= 2) {
+    print $outhandle "WARNING - no plugin could process " . 
         &util::filename_cat($base_dir,$file) . "\n";
     }