This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Standardise Hash::Util::hv_store's error message.
authorNicholas Clark <nick@ccl4.org>
Wed, 20 Oct 2010 14:41:14 +0000 (16:41 +0200)
committerNicholas Clark <nick@ccl4.org>
Thu, 21 Oct 2010 06:42:22 +0000 (08:42 +0200)
Previously it was inconsistent with the messages of the other XS routines, which
used all-uppercase for HASH and ARRAY.

ext/Hash-Util/Util.xs

index 571d48b..03b049f 100644 (file)
@@ -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)) {