Regenerate.

[oota-llvm.git] / utils / webNLT.pl

diff --git a/utils/webNLT.pl b/utils/webNLT.pl
index 7f55b60187c6eab0fd74187db1e00b4e2b4aa1ea..fb29fd292e2d8f5e5310d1e5ef53387ee77ff783 100755 (executable)
--- a/utils/webNLT.pl
+++ b/utils/webNLT.pl
@@ -61,15 +61,18 @@ else
       {
         my @names = $q->param('name');
         my @tests = $q->param('test');
+        print "<P>";
+        print join "<BR>", @names;
+        print "<P>";
+        print join "<BR>", @tests;
+        print "<P>";
         $str = "pwd=" . $q->param('pwd');
         $count = 0;
-        while (@names)
+        foreach $n (@names)
           {
-            $n = pop @names;
-            while (@tests)
+            foreach $t (@tests)
               {
-                $t = pop @tests;
-                $str .= "&t$count=$t&n$count=$n";
+                $str = "$str&t$count=$t&n$count=$n";
                 $count++;
               }
           }