Changeset 8893

Timestamp:

2005-01-12T13:46:08+13:00 (19 years ago)

Author:

davidb

Message:

Additional check added to plugins read function to remain compatible
with BasPlug. The check is connected with supporting the -assoicate_ext
minus option implemented in BasPlug.

File:

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

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -268 +268 @@
     $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/;
 
+    if ($self->associate_with($file,$filename,$metadata)) {
+    # a form of smart block
+    $self->{'num_blocked'} ++;
+    return 0; # blocked
+    }
+
     if ($self->{'block_exp'} ne "" && $filename =~ /$self->{'block_exp'}/) {
     $self->{'num_blocked'} ++;