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 | |
| 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
| -rwxr-xr-x | t/lib/fields.t | 2 | ||||
| -rwxr-xr-x | t/pragma/constant.t | 2 |
2 files changed, 2 insertions, 2 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(); diff --git a/t/pragma/constant.t b/t/pragma/constant.t index 15ce319c02..a56e081083 100755 --- a/t/pragma/constant.t +++ b/t/pragma/constant.t @@ -151,7 +151,7 @@ print CHASH->{foo}; print CARRAY->[1]; print CPHASH->{foo}; eval q{ CPHASH->{bar} }; -test 44, scalar($@ =~ /^No such array/); +test 44, scalar($@ =~ /^No such pseudo-hash field/); print CCODE->(45); eval q{ CCODE->{foo} }; test 46, scalar($@ =~ /^Constant is not a HASH/); |