# | Line 16 | Line 16 | BEGIN { | |
---|---|---|
16 | } | |
17 | require 'test.pl'; | |
18 | } | |
19 | + | use strict; |
20 | + | use warnings; |
21 | ||
22 | plan tests => 29; | |
23 | ||
# | Line 29 | Line 31 | sub runlint ($$$;$) { | |
31 | stderr => 1, | |
32 | ); | |
33 | $res =~ s/-e syntax OK\n$//; | |
34 | + | local $::Level = $::Level + 1; |
35 | is( $res, $result, $testname || $opts ); | |
36 | } | |
37 |
# | Line 1 | Line 1 | |
---|---|---|
1 | < | 1.1.1.1 |
1 | > | 1.1.1.2 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |