Changeset 782
- Timestamp:
- 05/19/06 00:01:53
- Files:
-
- trunk/plagger/lib/Plagger/Plugin/Filter/Regexp.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/Filter/Regexp.pm
r415 r782 2 2 use strict; 3 3 use base qw( Plagger::Plugin::Filter::Base ); 4 use Encode; 4 5 5 6 sub init { … … 17 18 18 19 local $_ = $body; 19 my $count = eval $self->conf->{regexp}; 20 my $regexp = decode_utf8($self->conf->{regexp}, Encode::FB_CROAK); 21 my $count = eval $regexp; 20 22 21 23 if ($@) {
