diff options
| author | Simon Glover <scog@roe.ac.uk> | 2002-02-26 17:56:42 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-26 23:51:52 +0000 |
| commit | ed9aa3b75c508a7baf4c55afe519cd2c35782757 (patch) | |
| tree | 815457357767df3e73113972fae24246f2ba7477 /t | |
| parent | 3ca925874f58afe830847e3aaacb8dbda2bdcc03 (diff) | |
| download | perl-ed9aa3b75c508a7baf4c55afe519cd2c35782757.tar.gz | |
Subject: Missing diagnostics
Date: Tue, 26 Feb 2002 17:56:42 +0000 (BST)
Message-Id: <Pine.GSO.4.10.10202261754170.23317-100000@muinntiarach.roe.ac.uk>
Subject: [PATCH] Better wording for the lvalue vec diagnostic
From: Simon Glover <scog@roe.ac.uk>
Date: Tue, 26 Feb 2002 18:08:04 +0000 (BST)
Message-Id: <Pine.GSO.4.10.10202261756560.23317-100000@muinntiarach.roe.ac.uk>
p4raw-id: //depot/perl@14887
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/vec.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/vec.t b/t/op/vec.t index 4b8934d7a2..67d7527412 100755 --- a/t/op/vec.t +++ b/t/op/vec.t @@ -46,7 +46,7 @@ $x = eval { vec $foo, 0, -13 }; print "not " if defined $x or $@ !~ /^Illegal number of bits in vec/; print "ok 21\n"; $x = eval { vec($foo, -1, 4) = 2 }; -print "not " if defined $x or $@ !~ /^Assigning to negative offset in vec/; +print "not " if defined $x or $@ !~ /^Negative offset to vec in lvalue context/; print "ok 22\n"; print "not " if vec('abcd', 7, 8); print "ok 23\n"; |