Shell.pm: pod rewrite and new mini-feature $Shell::raw

[perl5.git] / lib / Carp.t

diff --git a/lib/Carp.t b/lib/Carp.t
index 2ea98d8..cc2da17 100644 (file)
--- a/lib/Carp.t
+++ b/lib/Carp.t
@@ -11,7 +11,7 @@ print "ok 1\n";
 
 $SIG{__WARN__} = sub {
     print "ok $1\n"
-       if $_[0] =~ m!ok (\d+)$! };
+       if $_[0] =~ m!ok (\d+)\n at .+\b(?i:carp\.t) line \d+$! };
 
 carp  "ok 2\n";