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 (file)
--- 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", '' ]),