diff options
Diffstat (limited to 'vcx')
| -rw-r--r-- | vcx | 28 |
1 files changed, 0 insertions, 28 deletions
@@ -427,31 +427,3 @@ sub stream_index { }; } -sub compare_streams { - my (@paths, $func) = @_; - - my $ixs = stream_index(); - my $wss = stream_tree($paths); - - $old = $ixs->(); - $new = $wss->(); - - # TODO: fix compare logic - while (defined $old || defined $new) { - if (defined $new && - (!defined $old || $new->{path} lt $old->{path})) { - $func->($new, 'N'); - $new = $wss->(); - } elsif (defined $old && - (!defined $new || $old->{path} lt $new->{path})) { - $func->($old, 'D'); - $old = $ixs->(); - } else { - if ($new->{mtime} != $old->{mtime} || $new->{size} != $old->{size}) { - $func->($new, 'M'); - } - $old = $ixs->(); - $new = $wss->(); - } - } -} |
