Adding the failure diagnostic

[p5sagit/p5-mst-13.2.git] / pod / perlhack.pod

diff --git a/pod/perlhack.pod b/pod/perlhack.pod
index 43e04d4..5aff68e 100644 (file)
--- a/pod/perlhack.pod
+++ b/pod/perlhack.pod
@@ -1489,6 +1489,8 @@ write one easily.
         $out .= "ok $test\n";
         print $out;
 
+        printf "# Failed test at line %d\n", (caller)[2] unless $ok;
+
         $test++;
         return $ok;
     }