This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add test for [perl #129036]
authorKarl Williamson <khw@cpan.org>
Mon, 30 Jan 2017 03:59:44 +0000 (20:59 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 30 Jan 2017 04:05:54 +0000 (21:05 -0700)
This was fixed by 6cdc5cd8f36f88172b0fcefdcadec75f5b6600b2
(but I didn't check that this was the actual commit).

t/lib/warnings/toke

index 1d95643..2774f08 100644 (file)
@@ -1642,3 +1642,10 @@ Malformed UTF-8 character (fatal) at - line 11.
 no warnings "uninitialized";
 BEGIN{$^H=-1};my $l; s\0$0[$l]\0\0
 EXPECT
+########
+# NAME  [perl $129036] Assertion failure
+BEGIN{$0="";$^H=hex join""=>A00000}p?
+EXPECT
+OPTION fatal
+syntax error at - line 1, at EOF
+Execution of - aborted due to compilation errors.