diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-20 16:41:14 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-21 08:42:22 +0200 |
| commit | 7bee1db7a7213960f0e993475537d52af34c2e34 (patch) | |
| tree | 9a33d6b499fcb47a1e69582e988743d1e2c95197 | |
| parent | b58f046e90bbd29d8ce6f6d13cd31c2b86d868e0 (diff) | |
| download | perl-7bee1db7a7213960f0e993475537d52af34c2e34.tar.gz | |
Standardise Hash::Util::hv_store's error message.
Previously it was inconsistent with the messages of the other XS routines, which
used all-uppercase for HASH and ARRAY.
| -rw-r--r-- | ext/Hash-Util/Util.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Hash-Util/Util.xs b/ext/Hash-Util/Util.xs index 571d48b591..03b049fd20 100644 --- a/ext/Hash-Util/Util.xs +++ b/ext/Hash-Util/Util.xs @@ -98,7 +98,7 @@ hv_store(hvref, key, val) CODE: { if (!SvROK(hvref) || SvTYPE(SvRV(hvref)) != SVt_PVHV) - croak("First argument to hv_store() must be a hash reference"); + croak("First argument to hv_store() must be a HASH reference"); hv = (HV*)SvRV(hvref); SvREFCNT_inc(val); if (!hv_store_ent(hv, key, val, 0)) { |