This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
overload.pm str/num confu
authorAndreas König <a.koenig@mind.de>
Tue, 17 Aug 1999 08:21:12 +0000 (10:21 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 17 Aug 1999 08:13:34 +0000 (08:13 +0000)
Message-ID: <sfcogg7ylk7.fsf@hohenstaufen.in-berlin.de>
To: The Perl5 Porters Mailing List <perl5-porters@perl.org>

p4raw-id: //depot/cfgperl@4001

lib/overload.pm

index c46be83..1d8f1a1 100644 (file)
@@ -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        => '++ --',