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

diff --git a/lib/overload.pm b/lib/overload.pm
index c46be83..1d8f1a1 100644 (file)
--- 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        => '++ --',