diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-09-07 22:21:02 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-08 14:19:49 +0000 |
| commit | 33b454808819084359e76a3f223a41b842c180b7 (patch) | |
| tree | 7637e666df742859e20f1b79353fca4d01eb68d5 /t/op/vec.t | |
| parent | c5d572932fd269096c2a3545999d11f5ab9563b7 (diff) | |
| download | perl-33b454808819084359e76a3f223a41b842c180b7.tar.gz | |
Re-allow vec() for characters > 255.
Subject: [PATCH] Re: [ID 20000907.005] Not OK: perl v5.7.0 +devel-7030 on alpha-dec_osf-perlio 4.0f (UNINSTALLED)
Message-Id: <200009080621.CAA03409@leggy.zk3.dec.com>
p4raw-id: //depot/perl@7039
Diffstat (limited to 't/op/vec.t')
| -rwxr-xr-x | t/op/vec.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/op/vec.t b/t/op/vec.t index b75bebfade..7fe0974770 100755 --- a/t/op/vec.t +++ b/t/op/vec.t @@ -57,13 +57,14 @@ $x = substr $foo, 1; print "not " if vec($x, 0, 8) != 255; print "ok 24\n"; eval { vec($foo, 1, 8) }; -print "not " unless $@ =~ /^Character > 255 in vec\(\) /; +print "not " if $@; print "ok 25\n"; eval { vec($foo, 1, 8) = 13 }; -print "not " unless $@ =~ /^Character > 255 in vec\(\) /; +print "not " if $@; print "ok 26\n"; -print "not " if $foo ne "\x{100}" . "\xff\xfe"; +print "not " if $foo ne "\xc4\x0d\xc3\xbf\xc3\xbe"; print "ok 27\n"; +$foo = "\x{100}" . "\xff\xfe"; $x = substr $foo, 1; vec($x, 2, 4) = 7; print "not " if $x ne "\xff\xf7"; |