Commit | Line | Data |
---|---|---|
f3365a56 | 1 | #!perl -w |
2 | use strict; | |
3 | ||
4 | require './test.pl'; | |
5 | ||
6 | plan(tests => 2); | |
7 | ||
8 | { | |
9 | no warnings 'deprecated'; | |
10 | print <<; # Yow! | |
11 | ok 1 | |
12 | ||
13 | # previous line intentionally left blank. | |
14 | ||
15 | my $yow = "ok 2"; | |
16 | print <<; # Yow! | |
17 | $yow | |
18 | ||
19 | # previous line intentionally left blank. | |
20 | } | |
21 | ||
22 | curr_test(3); |