Fix for 20001101.004, at least for the memleak part.

[p5sagit/p5-mst-13.2.git] / lib / Pod / t / InputObjects.t

diff --git a/lib/Pod/t/InputObjects.t b/lib/Pod/t/InputObjects.t
index ad5bade..d086086 100644 (file)
--- a/lib/Pod/t/InputObjects.t
+++ b/lib/Pod/t/InputObjects.t
@@ -1,4 +1,4 @@
-#!perl
+#!perl -Tw
 
 BEGIN {
        chdir 't' if -d 't';
@@ -37,7 +37,7 @@ use_ok( 'Pod::InputObjects' );
     is( $p_p1->cmd_name(), 'head2', 'Pod::Paragraph->cmd_name()' );
     is( $p_p1->cmd_name( 'head1' ), 'head1', 
         'Pod::Paragraph->cmd_name( head1 )' );
-    is( $p_p2->cmd_name(), '',
+    cmp_ok( $p_p2->cmd_name(), 'eq', '',
         'Pod::Paragraph->cmd_name() revisited' );
 
     is( $p_p1->text(), 'NAME', 'Pod::Paragraph->text()' );