[PATCH] change test to cover the original problem from rt-84767

gistfile1.diff

From 856ce484fc090725525e9781baab2fd02610400f Mon Sep 17 00:00:00 2001
From: Oliver Gerlich <[email protected]>
Date: Sun, 21 Sep 2014 12:46:23 +0200
Subject: [PATCH] change test to cover the original problem from rt-84767

---
 t/rt-84767.t |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/rt-84767.t b/t/rt-84767.t
index 36a480f..28f72ec 100644
--- a/t/rt-84767.t
+++ b/t/rt-84767.t
@@ -18,7 +18,7 @@ open( my $fh,"<","$Script" )
 while ( <$fh> ) {
     eval { die("error") if /error/; };
     $@ && do {
-        like( $@,qr!at t/$Script line 19!,'die with input line number' );
+        like( $@,qr!at t/$Script line 19, <\$fh> line 19!,'die with input line number' );
         last;
     }
 }
-- 
1.7.9.5