diff options
author | Michael G. Schwern <schwern@pobox.com> | 1999-08-17 14:35:45 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 20:00:19 +0000 |
commit | 42d382189339e56f3bd13a71933349bc8b7e8b42 (patch) | |
tree | 215fb6a998d1ae4d5ed8eb149d61ba09d19c0480 /sv.c | |
parent | b7a02c4fb533bb0a7ae92f82a4a660045d95669a (diff) | |
download | perl-42d382189339e56f3bd13a71933349bc8b7e8b42.tar.gz |
More descriptive names for operators.
To: Ilya Zakharevich <ilya@math.ohio-state.edu>
Cc: perl5-porters@perl.org
Subject: Re: [ID 19990817.009] [BUG 5.005_60 & 5.005_03] == reported as eq in
Date: Tue, 17 Aug 1999 18:35:45 -0400
Message-ID: <19990817183545.A23073@toldyouso.com>
From: Michael G Schwern <schwern@pobox.com>
To: perl5-porters@perl.org
Subject: [PATCH 5.005_60 opcode.pl and friends] Improved opcode descriptions
Date: Wed, 18 Aug 1999 03:53:38 -0400
Message-ID: <19990818035337.A31505@athens.aocn.com>
p4raw-id: //depot/cfgperl@4177
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -1034,10 +1034,12 @@ S_not_a_number(pTHX_ SV *sv) *d = '\0'; if (PL_op) - Perl_warner(aTHX_ WARN_NUMERIC, "Argument \"%s\" isn't numeric in %s", tmpbuf, - PL_op_name[PL_op->op_type]); + Perl_warner(aTHX_ WARN_NUMERIC, + "Argument \"%s\" isn't numeric in %s", tmpbuf, + PL_op_desc[PL_op->op_type]); else - Perl_warner(aTHX_ WARN_NUMERIC, "Argument \"%s\" isn't numeric", tmpbuf); + Perl_warner(aTHX_ WARN_NUMERIC, + "Argument \"%s\" isn't numeric", tmpbuf); } /* the number can be converted to integer with atol() or atoll() */ |