From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 30 May 2001 22:34:41 +0000 (+0100)
Subject: (was Re: [PATCH] Re: Report /pro/3gl/CPAN/perl-5.7.1)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a355d973eb7817e2c7ea1f451ee3c80da9cf5765;p=p5sagit%2Fp5-mst-13.2.git

(was Re: [PATCH] Re: Report /pro/3gl/CPAN/perl-5.7.1)
Message-ID: <20010530223441.Y86445@plum.flirble.org>

p4raw-id: //depot/perl@10337
---

diff --git a/t/op/cmp.t b/t/op/cmp.t
index 243aabe..c6d72f1 100755
--- a/t/op/cmp.t
+++ b/t/op/cmp.t
@@ -37,7 +37,7 @@ $uv_bigi |= 0x0;
 $expect = 6 * ($#FOO+2) * ($#FOO+1);
 print "1..$expect\n";
 
-sub nok {
+sub nok ($$$$$$$$) {
   my ($test, $left, $threeway, $right, $result, $i, $j, $boolean) = @_;
   $result = defined $result ? "'$result'" : 'undef';
   print "not ok $test # ($left <=> $right) gives: $result \$i=$i \$j=$j, $boolean disagrees\n";
@@ -79,7 +79,7 @@ for my $i (0..$#FOO) {
 	    print "ok $ok\n";
 	}
 	else {
-	    nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '==');
+	    nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '==');
 	}
 	$ok++;
 	if (!defined($cmp) ? !($i5 > $j5)
@@ -90,7 +90,7 @@ for my $i (0..$#FOO) {
 	    print "ok $ok\n";
 	}
 	else {
-	    nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '>');
+	    nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '>');
 	}
 	$ok++;
 	if (!defined($cmp) ? !($i6 >= $j6)
@@ -101,7 +101,7 @@ for my $i (0..$#FOO) {
 	    print "ok $ok\n";
 	}
 	else {
-	    nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '>=');
+	    nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '>=');
 	}
 	$ok++;
 	# OK, so the docs are wrong it seems. NaN != NaN
@@ -113,7 +113,7 @@ for my $i (0..$#FOO) {
 	    print "ok $ok\n";
 	}
 	else {
-	    nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '!=');
+	    nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '!=');
 	}
 	$ok++;
 	if (!defined($cmp) ? !($i8 <= $j8)
@@ -124,7 +124,7 @@ for my $i (0..$#FOO) {
 	    print "ok $ok\n";
 	}
 	else {
-	    nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '<=');
+	    nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '<=');
 	}
 	$ok++;
 	$cmp = $i9 cmp $j9;