From f56bb35301836e56582a575a75864392a0177875 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B8rgen=20P=2E=20Tjern=C3=B8?= Date: Mon, 2 Dec 2013 19:31:46 -0800 Subject: Fix line endings. WHAMMY. --- sp/src/devtools/bin/splitdiff3.pl | 108 +++++++++++++++++++------------------- 1 file changed, 54 insertions(+), 54 deletions(-) (limited to 'sp/src/devtools/bin/splitdiff3.pl') diff --git a/sp/src/devtools/bin/splitdiff3.pl b/sp/src/devtools/bin/splitdiff3.pl index e38b493a..ccba3a95 100644 --- a/sp/src/devtools/bin/splitdiff3.pl +++ b/sp/src/devtools/bin/splitdiff3.pl @@ -1,54 +1,54 @@ -$infilename = shift; -$outfilename1 = shift; -$outfilename2 = shift; -open INPUT, $infilename || die; -@input = ; -close INPUT; - -open MERGEDMINE, ">$outfilename1" || die; -open MERGEDTHEIRS, ">$outfilename2" || die; - -for( $i = 0; $i < scalar( @input ); $i++ ) -{ - $line = $input[$i]; - - if( $line =~ m/^(.*)<<<<<<>>>>>>/ ) - { - $first = $second = 0; - print MERGEDTHEIRS $1; - next; - } - - if( $first ) - { - print MERGEDMINE $line; - } - elsif( $second ) - { - print MERGEDTHEIRS $line; - } - else - { - print MERGEDMINE $line; - print MERGEDTHEIRS $line; - } -} - -close MERGEDMINE; -close MERGEDTHEIRS; +$infilename = shift; +$outfilename1 = shift; +$outfilename2 = shift; +open INPUT, $infilename || die; +@input = ; +close INPUT; + +open MERGEDMINE, ">$outfilename1" || die; +open MERGEDTHEIRS, ">$outfilename2" || die; + +for( $i = 0; $i < scalar( @input ); $i++ ) +{ + $line = $input[$i]; + + if( $line =~ m/^(.*)<<<<<<>>>>>>/ ) + { + $first = $second = 0; + print MERGEDTHEIRS $1; + next; + } + + if( $first ) + { + print MERGEDMINE $line; + } + elsif( $second ) + { + print MERGEDTHEIRS $line; + } + else + { + print MERGEDMINE $line; + print MERGEDTHEIRS $line; + } +} + +close MERGEDMINE; +close MERGEDTHEIRS; -- cgit v1.2.3