[popfile-commit] engine/Devel TestCoverage.pm,1.8,1.9

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/Devel
In directory sc8-pr-cvs1:/tmp/cvs-serv13266/Devel

Modified Files:
	TestCoverage.pm 
Log Message:
Small changes to help the coverage code spot blocks of code that are being executed; make coverage.pl warn if it detects an unterminated PROFILE BLOCK

Index: TestCoverage.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Devel/TestCoverage.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** TestCoverage.pm	13 Jul 2003 05:21:21 -0000	1.8
--- TestCoverage.pm	26 Jul 2003 14:59:46 -0000	1.9
***************
*** 99,102 ****
--- 99,108 ----
  		close SOURCE_FILE;
                  close LINE_DATA;
+ 
+                 # Check for an unterminated PROFILE BLOCK and warn the user
+ 
+                 if ( $block_executed ) {
+                     print "WARNING: unterminated PROFILE BLOCK detected; did you forget a PROFILE BLOCK STOP in $file?\n";
+ 		}
            }
       }