[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