From: Andreas König <a.koenig@mind.de>
Date: Tue, 17 Aug 1999 08:21:12 +0000 (+0200)
Subject: overload.pm str/num confu
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2877bd819a20d3bd0ebab38b019eca736caceca3;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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	  => '++ --',