diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-08-09 19:58:35 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-08-09 19:58:35 +0000 |
| commit | 43d2322dfe15a2c5bb24cfb950929e9c6bfb5cdd (patch) | |
| tree | 405bd1d998d12cefb4fa8f0101ff45e1a8615042 /ext/XS/APItest | |
| parent | dedbcade96321798da47de9721e77227a1c11eb5 (diff) | |
| download | perl-43d2322dfe15a2c5bb24cfb950929e9c6bfb5cdd.tar.gz | |
Fix a typo and remove some debugging crud from change #23209
p4raw-link: @23209 on //depot/perl: dedbcade96321798da47de9721e77227a1c11eb5
p4raw-id: //depot/perl@23210
Diffstat (limited to 'ext/XS/APItest')
| -rw-r--r-- | ext/XS/APItest/t/call.t | 5 |
1 files changed, 1 insertions, 4 deletions
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", '' ]), |