[svk-commit] r2958 - trunk/lib/SVK/Editor
nobody at bestpractical.com
nobody at bestpractical.com
Thu Jul 3 14:52:02 EDT 2008
Author: ruz
Date: Thu Jul 3 14:51:30 2008
New Revision: 2958
Modified:
trunk/lib/SVK/Editor/Merge.pm
Log:
* if property has conflict and we didn't merge it then push
svn text further
Modified: trunk/lib/SVK/Editor/Merge.pm
==============================================================================
--- trunk/lib/SVK/Editor/Merge.pm (original)
+++ trunk/lib/SVK/Editor/Merge.pm Thu Jul 3 14:51:30 2008
@@ -954,11 +954,7 @@
$self->prepare_fh ($fh);
my ($conflict, $mfh) = $self->_merge_text_change ($fh, loc ("Property %1 of %2", $propname, $path), $pool);
- if (!$conflict) {
- local $/;
- $mfh = <$mfh>;
- }
- return ($conflict ? 'C' : 'G', $mfh);
+ return ($conflict ? 'C' : 'G', do { local $/; <$mfh> });
}
sub _merge_prop_change {
@@ -991,15 +987,15 @@
return if $skipped;
- if ($status eq 'C') {
- $self->{cb_conflict}->($path, $_[0]) if $self->{cb_conflict};
- ++$self->{conflicts};
- }
- elsif ($status eq 'g') {
+ if ($status eq 'g') {
$self->{cb_prop_merged}->($path, $_[0])
if $self->{cb_prop_merged};
}
else {
+ if ($status eq 'C') {
+ $self->{cb_conflict}->($path, $_[0]) if $self->{cb_conflict};
+ ++$self->{conflicts};
+ }
$_[1] = $merged;
}
$self->{notify}->prop_status ($path, $status);
More information about the svk-commit
mailing list