diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-04 18:01:01 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-04 18:01:01 -0700 |
| commit | 9a7154347977e29a815d93c0097c5a9b660006b2 (patch) | |
| tree | 7484a92de7ae014d98163326b4af3ee58f895bcb /t | |
| parent | 5aec98dfc772975fdb511f380dee9d0b016c16be (diff) | |
| download | perl-9a7154347977e29a815d93c0097c5a9b660006b2.tar.gz | |
[perl #78550] Fix bad assertion in toke.c:start_subparse
The outer ‘sub’ might actually be a format
Diffstat (limited to 't')
| -rw-r--r-- | t/comp/form_scope.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/comp/form_scope.t b/t/comp/form_scope.t index 809e0d2e72..f10637fd54 100644 --- a/t/comp/form_scope.t +++ b/t/comp/form_scope.t @@ -118,6 +118,12 @@ undef &x; print "ok 9 - closure var not available when outer sub is undefined\n"; } +format start_subparse::assertion = +@ +sub { } +. +# survived; no "print ok" necessary + # This is a variation of bug #22977, which crashes or fails an assertion # up to 5.16. # Keep this test last if you want test numbers to be sane. |