From 43d2322dfe15a2c5bb24cfb950929e9c6bfb5cdd Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Mon, 9 Aug 2004 19:58:35 +0000 Subject: Fix a typo and remove some debugging crud from change #23209 p4raw-link: @23209 on //depot/perl: dedbcade96321798da47de9721e77227a1c11eb5 p4raw-id: //depot/perl@23210 --- ext/XS/APItest/t/call.t | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'ext/XS/APItest') diff --git a/ext/XS/APItest/t/call.t b/ext/XS/APItest/t/call.t index be66a735b2..b4facd76f4 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", '' ]), -- cgit v1.2.1