[Bps-public-commit] Prophet branch, master, updated. a53e0972929dd51df27feaa63bbca753a0b18928
jesse
jesse at bestpractical.com
Thu Jun 4 13:00:50 EDT 2009
The branch, master has been updated
via a53e0972929dd51df27feaa63bbca753a0b18928 (commit)
via 8715e95481401f63f3a2e8af9bfbaeba4cb4833d (commit)
from 106b9ccc91b96e0c9ed97fdafa061c44c2397fcd (commit)
Summary of changes:
lib/Prophet/CLI/Command/Merge.pm | 15 ++++++++-------
t/simple-push.t | 10 +++++-----
2 files changed, 13 insertions(+), 12 deletions(-)
- Log -----------------------------------------------------------------
commit 8715e95481401f63f3a2e8af9bfbaeba4cb4833d
Author: Jesse Vincent <jesse at bestpractical.com>
Date: Thu Jun 4 13:00:31 2009 -0400
test updates to keep up with api changes
diff --git a/t/simple-push.t b/t/simple-push.t
index 60c05fc..341dabd 100644
--- a/t/simple-push.t
+++ b/t/simple-push.t
@@ -78,9 +78,9 @@ my $changesets;
$bob->traverse_changesets(
after => $alice->last_changeset_from_source($bob->uuid),
callback => sub {
- my $cs = shift;
- return unless $alice->should_accept_changeset( $cs);
- push @{$changesets}, $cs->as_hash;
+ my %args = (@_);
+ return unless $alice->should_accept_changeset( $args{changeset});
+ push @{$changesets}, $args{changeset}->as_hash;
}
);
@@ -158,8 +158,8 @@ my $new_changesets;
$bob->traverse_changesets(
after => $alice->last_changeset_from_source($bob->uuid),
callback => sub {
- my $cs = shift;
- return unless $cs->has_changes, push @{$new_changesets}, $cs->as_hash;
+ my %args = (@_);
+ return unless $args{changeset}->has_changes, push @{$new_changesets}, $args{changeset}->as_hash;
}
);
commit a53e0972929dd51df27feaa63bbca753a0b18928
Author: Jesse Vincent <jesse at bestpractical.com>
Date: Thu Jun 4 13:00:45 2009 -0400
perlitdy
diff --git a/lib/Prophet/CLI/Command/Merge.pm b/lib/Prophet/CLI/Command/Merge.pm
index 4e43515..ec22822 100644
--- a/lib/Prophet/CLI/Command/Merge.pm
+++ b/lib/Prophet/CLI/Command/Merge.pm
@@ -94,14 +94,15 @@ sub _do_merge {
if ( $self->has_arg('dry-run') ) {
- $self->source->traverse_changesets(
- after => $source_last_seen,
- callback => sub {
+ $self->source->traverse_changesets(
+ after => $source_last_seen,
+ callback => sub {
my %args = (@_);
- if ($self->target->should_accept_changeset($args{changeset})) {
- print $args{changeset}->as_string;
- }
- });
+ if ( $self->target->should_accept_changeset( $args{changeset} ) ) {
+ print $args{changeset}->as_string;
+ }
+ }
+ );
} else {
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list