diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-09-12 18:13:42 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-09-13 01:25:37 -0700 |
| commit | 7d3a4b9131a97c239505d0fc8c2ae529f2b97bee (patch) | |
| tree | 6fd61d448d7509863b341ce6119fb45f1ce4e736 /op.c | |
| parent | 95a31aad58c629646a232acf2fdd010a10b1b9b5 (diff) | |
| download | perl-7d3a4b9131a97c239505d0fc8c2ae529f2b97bee.tar.gz | |
Document the %hash{$scalar} warning
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1235,6 +1235,7 @@ Perl_scalar(pTHX_ OP *o) assert(SvPOK(name)); sv_chop(name,SvPVX(name)+1); if (key) + /* diag_listed_as: Scalar value %%s[%s] better written as $%s[%s] */ Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Scalar value %%%"SVf "%c%s%c better written as $%"SVf @@ -1242,6 +1243,7 @@ Perl_scalar(pTHX_ OP *o) SVfARG(name), lbrack, key, rbrack, SVfARG(name), lbrack, key, rbrack); else + /* diag_listed_as: Scalar value %%s[%s] better written as $%s[%s] */ Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Scalar value %%%"SVf"%c%"SVf "%c better written as $%"SVf |