Ignore:
Timestamp:
2005-07-19T16:27:51+12:00 (19 years ago)
Author:
kjdon
Message:

added 'use strict' to all plugins, and made modifications (mostly adding 'my') to make them compile

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/SplitPlug.pm

    r10218 r10254  
    4444use util;
    4545
     46use strict;
     47no strict 'refs'; # allow filehandles to be variables and viceversa
     48
    4649# SplitPlug is a sub-class of BasPlug.
    4750sub BEGIN {
    48 @SplitPlug::ISA = ('BasPlug');
     51    @SplitPlug::ISA = ('BasPlug');
    4952}
    5053
    … …  
    120123                          $extrametadata, $processor,
    121124                          $maxdocs, $gli);
    122     $split_matched = undef;
     125    my $split_matched = undef;
    123126
    124127    if ($matched) {
Note: See TracChangeset for help on using the changeset viewer.