From c25787f5286ecd4c765fbf41e203036891c5f3ad Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 26 Nov 2004 11:59:49 +0000
Subject: warn about blocks ending with a ";"

---
 perl_checker.src/test/test_it | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl_checker.src/test/test_it')

diff --git a/perl_checker.src/test/test_it b/perl_checker.src/test/test_it
index fc2e70f..2f7c599 100755
--- a/perl_checker.src/test/test_it
+++ b/perl_checker.src/test/test_it
@@ -65,7 +65,11 @@ foreach my $test (@tests) {
         if ($l[-1] !~ /(;|[\s{]\})\s+$/) {
             $l[-1] =~ s/^(.*?)(\s+$)/xxx($1);$2/;
         } else {
-            my $no_comma = $l[-1] =~ /(^\s*(for|foreach|if|unless|while|sub)\s)|(;\s+$)/;
+            # no comma for: 
+            # - prefix for/foreach/...
+            # - already a comma
+            # - a block { ... }
+            my $no_comma = $l[-1] =~ /(^\s*(for|foreach|if|unless|while|sub)\s)|(;\s+$)|(^{.*}\s*$)/;
             my $opt_comma = $no_comma ? '' : ';';
 	    $l[-1] =~ s/(\s+$)/$opt_comma nop();$1/;
         }
-- 
cgit v1.2.1