|  | @@ -123,6 +123,10 @@ for my $fn (@ARGV) {
 | 
	
		
			
				|  |  |              if (/([^\s'])\{/) {
 | 
	
		
			
				|  |  |                  msg "       $1\{:$fn:$.\n";
 | 
	
		
			
				|  |  |              }
 | 
	
		
			
				|  |  | +            ## Warn about double semi-colons at the end of a line.
 | 
	
		
			
				|  |  | +            if (/;;$/) {
 | 
	
		
			
				|  |  | +                msg "       double semi-colons at the end of $. in $fn\n"
 | 
	
		
			
				|  |  | +            }            
 | 
	
		
			
				|  |  |              ## Warn about multiple internal spaces.
 | 
	
		
			
				|  |  |              #if (/[^\s,:]\s{2,}[^\s\\=]/) {
 | 
	
		
			
				|  |  |              #    msg "     X  X:$fn:$.\n";
 |