diff options
| author | Michael G. Schwern <schwern@pobox.com> | 1999-10-03 13:34:17 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-04 07:15:16 +0000 |
| commit | ae9a5a847a09b4c18f5fbd105f44565c8d01a3b2 (patch) | |
| tree | a6d09acf9e09682e3811fd270d3c501e5b0ccca7 /t/lib | |
| parent | 88e9b055d1d2b36d019a3b541f111de4d9b71e3e (diff) | |
| download | perl-ae9a5a847a09b4c18f5fbd105f44565c8d01a3b2.tar.gz | |
Re: [PATCH av.c, op.c, perldiag.pod] "array field" -> "pseudo-hash field"
To: perl5-porters@perl.org
Message-ID: <19991003173417.A4351@blackrider>
p4raw-id: //depot/cfgperl@4299
Diffstat (limited to 't/lib')
| -rwxr-xr-x | t/lib/fields.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/fields.t b/t/lib/fields.t index 6f3ea5bb48..da874d674e 100755 --- a/t/lib/fields.t +++ b/t/lib/fields.t @@ -106,7 +106,7 @@ print "ok ", ++$testno, "\n"; # We should get compile time failures field name typos eval q(my D3 $obj3 = $obj2; $obj3->{notthere} = ""); -print "not " unless $@ && $@ =~ /^No such field "notthere"/; +print "not " unless $@ && $@ =~ /^No such pseudo-hash field "notthere"/; print "ok ", ++$testno, "\n"; #fields::_dump(); |