|
|
5d6a5ae |
From a51d828a6d402f30f37707c714de218f6b47dbd8 Mon Sep 17 00:00:00 2001
|
|
|
5d6a5ae |
From: Dan Collins <dcollinsn@gmail.com>
|
|
|
5d6a5ae |
Date: Sun, 4 Sep 2016 14:43:41 -0400
|
|
|
5d6a5ae |
Subject: [PATCH] Regression test for RT #129196
|
|
|
5d6a5ae |
MIME-Version: 1.0
|
|
|
5d6a5ae |
Content-Type: text/plain; charset=UTF-8
|
|
|
5d6a5ae |
Content-Transfer-Encoding: 8bit
|
|
|
5d6a5ae |
|
|
|
5d6a5ae |
Ported to 5.24.0:
|
|
|
5d6a5ae |
|
|
|
5d6a5ae |
commit a6128716d2cc20147851e0a37768376647bd3242
|
|
|
5d6a5ae |
Author: Dan Collins <dcollinsn@gmail.com>
|
|
|
5d6a5ae |
Date: Sun Sep 4 14:43:41 2016 -0400
|
|
|
5d6a5ae |
|
|
|
5d6a5ae |
Regression test for RT #129196
|
|
|
5d6a5ae |
|
|
|
5d6a5ae |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
5d6a5ae |
---
|
|
|
5d6a5ae |
t/op/evalbytes.t | 6 +++++-
|
|
|
5d6a5ae |
1 file changed, 5 insertions(+), 1 deletion(-)
|
|
|
5d6a5ae |
|
|
|
5d6a5ae |
diff --git a/t/op/evalbytes.t b/t/op/evalbytes.t
|
|
|
5d6a5ae |
index cca7c04..5e2af76 100644
|
|
|
5d6a5ae |
--- a/t/op/evalbytes.t
|
|
|
5d6a5ae |
+++ b/t/op/evalbytes.t
|
|
|
5d6a5ae |
@@ -6,7 +6,7 @@ BEGIN {
|
|
|
5d6a5ae |
require './test.pl'; require './charset_tools.pl';
|
|
|
5d6a5ae |
}
|
|
|
5d6a5ae |
|
|
|
5d6a5ae |
-plan(tests => 8);
|
|
|
5d6a5ae |
+plan(tests => 9);
|
|
|
5d6a5ae |
|
|
|
5d6a5ae |
{
|
|
|
5d6a5ae |
local $SIG{__WARN__} = sub {};
|
|
|
5d6a5ae |
@@ -33,3 +33,7 @@ chop($upcode = "use utf8; $U_100" . chr 256);
|
|
|
5d6a5ae |
is evalbytes $upcode, chr 256, 'use utf8 within evalbytes on utf8 string';
|
|
|
5d6a5ae |
eval { evalbytes chr 256 };
|
|
|
5d6a5ae |
like $@, qr/Wide character/, 'evalbytes croaks on non-bytes';
|
|
|
5d6a5ae |
+
|
|
|
5d6a5ae |
+eval 'evalbytes S';
|
|
|
5d6a5ae |
+ok 1, '[RT #129196] evalbytes S should not segfault';
|
|
|
5d6a5ae |
+
|
|
|
5d6a5ae |
--
|
|
|
5d6a5ae |
2.7.4
|
|
|
5d6a5ae |
|