#!/usr/bin/perl 
# Convert spaces to tabs in all new lines of a patch
# Note that if subsequent patches in a series modify the same line they might
# need to be applied with a white space tolerant patch tool (not git-apply) 
# TBD describe a way to do this with git-apply
use Text::Tabs;

while (<>) {
	if (/^\+/) { 
		$_ = "+" . unexpand(substr($_, 1));
	} 
	print;
}