projects
/
oota-llvm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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');
{
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;
$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++;
}
}
$count++;
}
}