diff options
Diffstat (limited to 'lib/utf8.t')
| -rw-r--r-- | lib/utf8.t | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index e6c94e6dc4..3978187264 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -565,17 +565,8 @@ for my $pos (0..5) { # [perl #119043] utf8::upgrade should not croak on read-only COWs for(__PACKAGE__) { - # First make sure we have a COW, otherwise this test is useless. - my $copy = $_; - my @addrs = unpack "L!L!", pack "pp", $copy, $_; - if ($addrs[0] != $addrs[1]) { - fail("__PACKAGE__ did not produce a COW - if this change was " - ."intentional, please provide me with another ro COW scalar") - } - else { eval { utf8::upgrade($_) }; is $@, "", 'no error with utf8::upgrade on read-only COW'; - } } # This one croaks, but not because the scalar is read-only eval "package \x{100};\n" . <<'END' |