# A regression test "framework" for Privoxy. For documentation see:
# perldoc privoxy-regression-test.pl
#
-# $Id: privoxy-regression-test.pl,v 1.67 2011/05/08 13:27:53 fabiankeil Exp $
+# $Id: privoxy-regression-test.pl,v 1.69 2011/05/08 13:29:59 fabiankeil Exp $
#
# Wish list:
#
my $failures;
my $skipped = 0;
- for my $s (0 .. @regression_tests - 1) {
+ for (my $s = 0; $s < @regression_tests; $s++) {
my $r = 0;
if ($expect_header eq 'REMOVAL'
or $expect_header eq 'NO CHANGE'
- or $expect_header eq 'SOME CHANGE') {
+ or $expect_header eq 'SOME CHANGE') {
$expect_header = $test->{'data'};
}