diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-13 14:37:16 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-13 14:37:16 +0100 |
| commit | cb525dbe8838a8e289f2e8f893dd8df441c740c4 (patch) | |
| tree | 7c523705270a73abdb2774b10f0737d9d86fba5e /universal.c | |
| parent | 0cf05ef1177b39ff322b92e7bf0e21b642395f49 (diff) | |
| download | perl-cb525dbe8838a8e289f2e8f893dd8df441c740c4.tar.gz | |
Consistent usage messages for XS_Tie_Hash_NamedCapture_*
The $flags argument is actually the object, so should not be mentioned.
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/universal.c b/universal.c index 556a79661d..8b4ed21b0c 100644 --- a/universal.c +++ b/universal.c @@ -1272,7 +1272,7 @@ XS(XS_Tie_Hash_NamedCapture_FETCH) SV * ret; if (items != 2) - croak_xs_usage(cv, "$key, $flags"); + croak_xs_usage(cv, "$key"); rx = PL_curpm ? PM_GETRE(PL_curpm) : NULL; @@ -1299,7 +1299,7 @@ XS(XS_Tie_Hash_NamedCapture_STORE) SV *ret; if (items != 3) - croak_xs_usage(cv, "$key, $value, $flags"); + croak_xs_usage(cv, "$key, $value"); rx = PL_curpm ? PM_GETRE(PL_curpm) : NULL; @@ -1331,7 +1331,7 @@ XS(XS_Tie_Hash_NamedCapture_DELETE) SV *ret; if (items != 2) - croak_xs_usage(cv, "$key, $flags"); + croak_xs_usage(cv, "$key"); if (!rx || !SvROK(ST(0))) Perl_croak_no_modify(aTHX); @@ -1356,7 +1356,7 @@ XS(XS_Tie_Hash_NamedCapture_CLEAR) SV *ret; if (items != 1) - croak_xs_usage(cv, "$flags"); + croak_xs_usage(cv, ""); rx = PL_curpm ? PM_GETRE(PL_curpm) : NULL; @@ -1386,7 +1386,7 @@ XS(XS_Tie_Hash_NamedCapture_EXISTS) SV * ret; if (items != 2) - croak_xs_usage(cv, "$key, $flags"); + croak_xs_usage(cv, "$key"); rx = PL_curpm ? PM_GETRE(PL_curpm) : NULL; |