| 
					
				 | 
			
			
				@@ -10,12 +10,12 @@ DIRB="$2" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 for B in $DIRB/*; do 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   A=$DIRA/`basename $B` 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   if [ -f $A ]; then 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      perl -pe 's/^\s*\!*\d+:/        1:/; s/^([^:]+:)[\d\s]+:/$1/; s/^ *-:(Runs|Programs):.*//;' "$A" > "$A.tmp" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      perl -pe 's/^\s*\!*\d+(\*?):/        1$1:/; s/^([^:]+:)[\d\s]+:/$1/; s/^ *-:(Runs|Programs):.*//;' "$A" > "$A.tmp" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   else 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       cat /dev/null > "$A.tmp" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   fi 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  perl -pe 's/^\s*\!*\d+:/        1:/; s/^([^:]+:)[\d\s]+:/$1/; s/^ *-:(Runs|Programs):.*//;' "$B" > "$B.tmp" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  diff -u "$A.tmp" "$B.tmp" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  perl -pe 's/^\s*\!*\d+(\*?):/        1$1:/; s/^([^:]+:)[\d\s]+:/$1/; s/^ *-:(Runs|Programs):.*//;' "$B" > "$B.tmp" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  diff -u "$A.tmp" "$B.tmp" |perl -pe 's/^((?:\+\+\+|---)(?:.*tmp))\s+.*/$1/;' 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   rm "$A.tmp" "$B.tmp" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 done 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 |