From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 9 Aug 2004 19:58:35 +0000 (+0000)
Subject: Fix a typo and remove some debugging crud from change #23209
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43d2322dfe15a2c5bb24cfb950929e9c6bfb5cdd;p=p5sagit%2Fp5-mst-13.2.git

Fix a typo and remove some debugging crud from change #23209
p4raw-link: @23209 on //depot/perl: dedbcade96321798da47de9721e77227a1c11eb5

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

diff --git a/ext/XS/APItest/t/call.t b/ext/XS/APItest/t/call.t
index be66a73..b4facd7 100644
--- a/ext/XS/APItest/t/call.t
+++ b/ext/XS/APItest/t/call.t
@@ -19,7 +19,7 @@ BEGIN {
 use warnings;
 use strict;
 
-# Test::MJore doesn't have fresh_perl_is() yet
+# Test::More doesn't have fresh_perl_is() yet
 # use Test::More tests => 240;
 
 BEGIN {
@@ -137,9 +137,6 @@ for my $test (
     ok(eq_array( [ eval { call_pv('d', $flags, @$args) }, $@ ],
 	[ "its_dead_jim\n" ]), "$description eval { call_pv('d') }");
 
-    #use Data::Dumper; print Dumper([ eval { eval_sv('d', $flags), $@ }, $@ ]);
-#    print Dumper([ ($flags & (G_ARRAY|G_DISCARD)) ? (0) : (undef, 1),
-#		"its_dead_jim\n", undef ]);
     ok(eq_array( [ eval { eval_sv('d', $flags), $@ }, $@ ],
 	[ ($flags & (G_ARRAY|G_DISCARD)) ? (0) : (undef, 1),
 		"its_dead_jim\n", '' ]),