From 17639bde299d25109390c82720c805c9f43b1309 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Tue, 28 Aug 2001 05:57:39 -0400
Subject: Adding the failure diagnostic Message-ID:
 <20010828095738.E17775@blackrider>

p4raw-id: //depot/perl@11772
---
 pod/perlhack.pod | 2 ++
 t/op/pack.t      | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/pod/perlhack.pod b/pod/perlhack.pod
index 43e04d4aa3..5aff68e492 100644
--- 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;
     }
diff --git a/t/op/pack.t b/t/op/pack.t
index 82568870aa..1c6222efe7 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -19,6 +19,8 @@ sub ok {
     $out .= "ok $test\n";
     print $out;
 
+    printf "# Failed test at line %d\n", (caller)[2] unless $ok;
+
     $test++;
     return $ok;
 }
-- 
cgit v1.2.1