make arrayref to pod_lines

metacpan · Mar 20, 2015 · 96663d0 · 96663d0
1 parent 5bfa05e
commit 96663d0
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/t/release/badpod.t b/t/release/badpod.t
@@ -2,7 +2,6 @@ use Test::More;
 use strict;
 use warnings;
 
-use DDP;
 use lib 't/lib';
 use MetaCPAN::TestHelpers;
 
@@ -37,8 +36,7 @@ sub test_bad_pod {
     is $file->sloc, 3, 'sloc';
     is $file->slop, 4, 'slop';
 
-    p @{ $file->pod_lines };
-    is_deeply $file->pod_lines, [ [ 5, 7 ], ], 'no pod_lines';
+    is_deeply @{ $file->pod_lines }, [ [ 5, 7 ], ], 'no pod_lines';
 
     is ${ $file->pod },