Also pass the file and the line number to the hook

[perl/modules/indirect.git] / t / 40-threads.t

diff --git a/t/40-threads.t b/t/40-threads.t
index 14fb8b25e878b13cfbc87856cac240e524882dd4..ce8ff03d9b4ce454a2186688ea8f273080a9058d 100644 (file)
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -29,7 +29,7 @@ BEGIN {
 
 sub expect {
  my ($pkg) = @_;
- return qr/^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"$pkg"/;
+ return qr/^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"$pkg"\s+at\s+\(eval\s+\d+\)\s+line\s+\d+/;
 }
 
 {