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

Timestamp:

2006-03-13T12:17:49+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now consistently sets $self->{'gli'} in plugin::begin.

File:

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

trunk/gsdl/perllib/plugin.pm

@@ -129 +129 @@
 
 sub begin {
-    my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
-   
-
+    my ($pluginfo, $base_dir, $processor, $maxdocs, $gli) = @_;
+
+    map { $_->{'gli'} = $gli; } @$pluginfo;
     map { $_->begin($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo;
 }