diff options
| author | Andreas König <a.koenig@mind.de> | 1999-08-17 10:21:12 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-17 08:13:34 +0000 |
| commit | 2877bd819a20d3bd0ebab38b019eca736caceca3 (patch) | |
| tree | 7b8c0bdec97e19cd5d3e9534166109e735503d7e /lib | |
| parent | 4f298f328422852e4cc6390a50d794862100f2b9 (diff) | |
| download | perl-2877bd819a20d3bd0ebab38b019eca736caceca3.tar.gz | |
overload.pm str/num confu
Message-ID: <sfcogg7ylk7.fsf@hohenstaufen.in-berlin.de>
To: The Perl5 Porters Mailing List <perl5-porters@perl.org>
p4raw-id: //depot/cfgperl@4001
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/overload.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/overload.pm b/lib/overload.pm index c46be839c3..1d8f1a15ad 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -113,9 +113,9 @@ sub mycan { # Real can would leave stubs. %ops = ( with_assign => "+ - * / % ** << >> x .", assign => "+= -= *= /= %= **= <<= >>= x= .=", - str_comparison => "< <= > >= == !=", + num_comparison => "< <= > >= == !=", '3way_comparison'=> "<=> cmp", - num_comparison => "lt le gt ge eq ne", + str_comparison => "lt le gt ge eq ne", binary => "& | ^", unary => "neg ! ~", mutators => '++ --', @@ -396,9 +396,9 @@ A computer-readable form of the above table is available in the hash with_assign => '+ - * / % ** << >> x .', assign => '+= -= *= /= %= **= <<= >>= x= .=', - str_comparison => '< <= > >= == !=', + num_comparison => '< <= > >= == !=', '3way_comparison'=> '<=> cmp', - num_comparison => 'lt le gt ge eq ne', + str_comparison => 'lt le gt ge eq ne', binary => '& | ^', unary => 'neg ! ~', mutators => '++ --', |