leakfinder.pl: Duh!

I hadn’t tested this before I committed it.  It had a syntax error.

diff --git a/Porting/leakfinder.pl b/Porting/leakfinder.pl
index d802196..7aa0322 100644 (file)
--- a/Porting/leakfinder.pl
+++ b/Porting/leakfinder.pl
@@ -33,7 +33,7 @@ for(`find .`) {
             open STDIN, "</dev/null";
             open STDERR, ">/dev/null";
             \$unused_variable = '$q';
-            eval \$unused_variable for my \$also_unused(1..3);
+            eval \$unused_variable while \$also_unused++ < 3;
             print oUt sv_count, "\n";
             eval \$unused_variable;
             print oUt sv_count, "\n";