/[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 8 by dpavlin, Mon Sep 21 19:36:32 2009 UTC revision 9 by dpavlin, Mon Sep 21 20:05:41 2009 UTC
# Line 67  sub run_views { Line 67  sub run_views {
67                  my $affected = 0;                  my $affected = 0;
68                  $t = time;                  $t = time;
69    
70                  foreach my $pos ( $offset + 1 .. $input->size ) {                  foreach my $pos ( $offset + 1 .. $offset + $input->size ) {
71                          my $rec = $cache->{$pos} ||= $input->fetch_rec($pos);                          my $rec = $cache->{$pos} ||= $input->fetch_rec( $pos );
72                          if ( ! $rec ) {                          if ( ! $rec ) {
73                                  warn "END at $pos";                                  warn "END at $pos";
74                                  last;                                  last;
# Line 93  sub run_views { Line 93  sub run_views {
93                                  , "\n"                                  , "\n"
94                                  ;                                  ;
95    
96                            unlink "$path.last" if -e "$path.last";
97                            rename $path, "$path.last";
98                          write_file $path, $dump;                          write_file $path, $dump;
99                          report "save $path";                          report "save $path";
100                  } else {                  } else {
Legend:
Removed from v.8  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26