/[Sack]/trunk/bin/sack.pl
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/bin/sack.pl

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

revision 40 by dpavlin, Wed Sep 23 23:54:38 2009 UTC revision 41 by dpavlin, Thu Sep 24 00:00:24 2009 UTC
# Line 186  sub run_code { Line 186  sub run_code {
186          foreach my $pos ( $offset + 1 .. $offset + $input->size ) {          foreach my $pos ( $offset + 1 .. $offset + $input->size ) {
187                  my $rec = $cache->{$pos} ||= $input->fetch_rec( $pos );                  my $rec = $cache->{$pos} ||= $input->fetch_rec( $pos );
188                  if ( ! $rec ) {                  if ( ! $rec ) {
189                          warn "END at $pos";                          print STDERR "END @ $pos";
190                          last;                          last;
191                  }                  }
192    
193                  eval "$code";                  eval "$code";
194                  if ( $@ ) {                  if ( $@ ) {
195                          warn "ABORT [$pos] $@\n";                          warn "ABORT $pos $@\n";
196                          last;                          last;
197                  } else {                  } else {
198                          $affected++;                          $affected++;
Legend:
Removed from v.40  
changed lines
  Added in v.41
  ViewVC Help
Powered by ViewVC 1.1.26