Change 23210 by [EMAIL PROTECTED] on 2004/08/09 19:58:35
Fix a typo and remove some debugging crud from change #23209
Affected files ...
... //depot/perl/ext/XS/APItest/t/call.t#3 edit
Differences ...
==== //depot/perl/ext/XS/APItest/t/call.t#3 (text) ====
Index: perl/ext/XS/APItest/t/call.t
--- perl/ext/XS/APItest/t/call.t#2~23209~ Mon Aug 9 12:48:57 2004
+++ perl/ext/XS/APItest/t/call.t Mon Aug 9 12:58:35 2004
@@ -19,7 +19,7 @@
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 @@
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", '' ]),
End of Patch.