X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F11-line.t;h=3bebba0cc9b218358d9db67f9e50e41db8b387cc;hp=6832844cc7ff28ee8f3d880ed1a2c1aad361ac6a;hb=e11d9a3efc1dcc5648202bd7651a982477bbc587;hpb=9e1b933a7cdeed368a062f29cfe995d06416b714 diff --git a/t/11-line.t b/t/11-line.t index 6832844..3bebba0 100644 --- a/t/11-line.t +++ b/t/11-line.t @@ -5,6 +5,8 @@ use warnings; use Test::More tests => 3 * 4; +BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} } + sub expect { my ($pkg, $line) = @_; 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+$line/;