473 |
|
|
474 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
475 |
|
|
476 |
$log->confess("called without pos") unless defined($pos); |
$log->logconfess("called without pos") unless defined($pos); |
477 |
|
|
478 |
if ($pos < 1) { |
if ($pos < 1) { |
479 |
$log->warn("seek before first record"); |
$log->warn("seek before first record"); |
568 |
|
|
569 |
sub _get_regex { |
sub _get_regex { |
570 |
my ($sf,$from,$to) = @_; |
my ($sf,$from,$to) = @_; |
571 |
|
|
572 |
|
# protect / |
573 |
|
$from =~ s!/!\\/!gs; |
574 |
|
$to =~ s!/!\\/!gs; |
575 |
|
|
576 |
if ($from =~ m/^regex:(.+)$/) { |
if ($from =~ m/^regex:(.+)$/) { |
577 |
$from = $1; |
$from = $1; |
578 |
} else { |
} else { |