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.

Reply via email to