Index: lib/Parrot/Test/Pod.pm
===================================================================
--- lib/Parrot/Test/Pod.pm	(revision 37597)
+++ lib/Parrot/Test/Pod.pm	(working copy)
@@ -176,7 +176,7 @@
         if ($@) {
             croak "$sto exists on disk but could not retrieve from it";
         }
-        else {
+        elsif (exists $args->{second_analysis}) {
             # go to second-level analysis
             $files_needing_analysis =
                 $second_analysis_subs{$args->{second_analysis}}(
@@ -227,11 +227,13 @@
         }
         nstore $files_needing_analysis, $sto;
         # go to second-level analysis
-        $files_needing_analysis =
-            $second_analysis_subs{$args->{second_analysis}}(
-                $files_needing_analysis,
-                $self->{build_dir},
-            );
+        if (exists $args->{second_analysis}) {
+            $files_needing_analysis =
+                $second_analysis_subs{$args->{second_analysis}}(
+                    $files_needing_analysis,
+                    $self->{build_dir},
+                );
+        }
     }
 
     return [ keys %{ $files_needing_analysis } ];
Index: t/examples/pod.t
===================================================================
--- t/examples/pod.t	(revision 37599)
+++ t/examples/pod.t	(working copy)
@@ -22,9 +22,7 @@
     argv => [ @ARGV ],
 } );
 
-my $need_testing_ref = $self->identify_files_for_POD_testing( {
-    second_analysis => 'oreilly_summary_malformed',
-} );
+my $need_testing_ref = $self->identify_files_for_POD_testing();
 
 foreach my $file ( @{ $need_testing_ref } ) {
     foreach my $contents (get_samples($file)) {