/[webpac2]/trunk/lib/WebPAC/Input.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 793 by dpavlin, Sun Feb 4 12:19:51 2007 UTC revision 797 by dpavlin, Sun Feb 4 13:28:30 2007 UTC
# Line 473  sub seek { Line 473  sub seek {
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");
# Line 568  Generate hash with regexpes to be applie Line 568  Generate hash with regexpes to be applie
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 {
Legend:
Removed from v.793  
changed lines
  Added in v.797
  ViewVC Help
Powered by ViewVC 1.1.26