help => q(syntax .findquote pattern | findqre lets you use a regex pattern),
alias => q(findqre),
}, class extends NDIRC::Command {
+ my $file;
method execute($c,$pattern) {
die 'ARGS' unless $pattern;
}else{
$matcher = '(index uc($_), uc($pattern)) != -1';
}
- my $file = new File::Temp( SUFFIX => '.txt' );
+ $file = new File::Temp( SUFFIX => '.txt' );
my $n = 1;
my $match = 0;
for (@FILE){