Changeset 496

Show
Ignore:
Timestamp:
04/02/06 13:12:36
Author:
miyagawa
Message:

fix Perl pattern file bug

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/lib/Plagger/Plugin/Filter/EntryFullText.pm

    r495 r496  
    3636    my $dir = $self->assets_dir; 
    3737    my $dh = DirHandle->new($dir) or $context->error("$dir: $!"); 
    38     for my $file (grep -f $_->[0] && $_->[0] =~ /\.(?:yaml)$/, 
     38    for my $file (grep -f $_->[0] && $_->[0] =~ /\.(?:pl|yaml)$/, 
    3939                  map [ File::Spec->catfile($dir, $_), $_ ], $dh->read) { 
    4040        $self->load_plugin(@$file); 
     
    7272    Plagger->context->error($@) if $@; 
    7373 
    74     my $plugin = $plugin_class->new; 
    75     push @{ $self->{plugins} }, $plugin; 
     74    return $plugin_class->new; 
    7675} 
    7776