diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2017-10-19 21:35:51 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2017-10-19 21:36:08 -0700 |
| commit | 6fbf0c3106e14fed2b6901c567fbb10716895f10 (patch) | |
| tree | 7aa9f3195e7455ea355bfb8a3f33dd4af1b41e11 /lib | |
| parent | 834e1dc686d615ac888f5ddc4c85c14addd6c2b5 (diff) | |
| download | perl-6fbf0c3106e14fed2b6901c567fbb10716895f10.tar.gz | |
Deparse.t tweak
The revert two commits ago causes B::Deparse to go through a different
code path when dumping the constant. Ideally the output should be the
same either way (i.e., consistently with or without a semicolon, not
sometimes one way and sometimes the other). But for now, just make
the test more lenient.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Deparse.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index c61cfa2f66..f1aae49fcb 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -162,7 +162,7 @@ $a = readpipe qq|$^X $path "-MO=Deparse"| .qq| -e "#line 123 four-five-six"| .qq| -e "package G; sub g(){0} sub s{}" 2>&1|; $a =~ s/-e syntax OK\n//g; -like($a, qr/sub F::f \(\) \{\s*0;\s*}/, +like($a, qr/sub F::f \(\) \{\s*0;?\s*}/, "Constant is dumped in package in which other subs are dumped"); unlike($a, qr/sub g/, "Constant is not dumped in package in which other subs are not dumped"); |