/[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 6 by dpavlin, Mon Sep 21 15:41:30 2009 UTC revision 8 by dpavlin, Mon Sep 21 19:36:32 2009 UTC
# Line 46  mkdir 'out' unless -e 'out'; Line 46  mkdir 'out' unless -e 'out';
46    
47  our $out;  our $out;
48    
49    our $cache;
50    
51  sub run_views {  sub run_views {
52          @views = sort glob 'views/*.pl' unless @views;          @views = sort glob 'views/*.pl' unless @views;
53          warn "# views ", dump @views;          warn "# views ", dump @views;
# Line 66  sub run_views { Line 68  sub run_views {
68                  $t = time;                  $t = time;
69    
70                  foreach my $pos ( $offset + 1 .. $input->size ) {                  foreach my $pos ( $offset + 1 .. $input->size ) {
71                          my $rec = $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;
Legend:
Removed from v.6  
changed lines
  Added in v.8
  ViewVC Help
Powered by ViewVC 1.1.26