#!/usr/local/bin/perl $prevline = ""; @badlines = (); $prevbad = 0; while (<>) { chop; push (@badlines, $_) if $prevbad; $prevbad = 0; next if /\s*#/; next if /.*\}\s*$/; next if /.*\{\s*$/; next if /.*,\s*$/; next if /^\s*$/; if (!/.*;\s*$/) { push (@badlines, $_); $prevbad = 1; } } $even = 0; foreach $line (@badlines) { if ($even) { $ok = 0; if ($line =~ /.*;\s*$/ && $line =~ /^\s*if/) { $ok = 1; } if (! $ok) { print "---\n"; print $prevline, "\n"; print $line, "\n"; } $even = 0; } else { $even = 1; $prevline = $line; } }