| 
					
				 | 
			
			
				@@ -16,6 +16,26 @@ sub nChanges { 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 my $look_for_type = "merged"; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+if (! @ARGV) { 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    print <<EOF 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+Usage: 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+   findMergedChanges.pl [--merged/--unmerged/--weird/--list] changes/* 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+A change is "merged" if it has ever been merged to release-0.2.2 and it has had 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+no subsequent changes in master. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+A change is "unmerged" if it has never been merged to release-0.2.2 and it 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+has had changes in master. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+A change is "weird" if it has been merged to release-0.2.2 and it *has* had 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+subsequent changes in master. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+Suggested application: 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+   findMergedChanges.pl --merged changes/* | xargs -n 1 git rm 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+EOF 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+} 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 while (@ARGV and $ARGV[0] =~ /^--/) { 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     my $flag = shift @ARGV; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     if ($flag =~ /^--(weird|merged|unmerged|list)/) { 
			 |