blob: 5e33406b42605a6f4b145c24e9b39792e54284b5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use lib 't/injection';
no circular::require;
eval "require('Foo; die q[bar]'); 1";
like($@, qr/Can't locate Foo; die q\[bar\] in \@INC/,
"can't inject extra code via require");
eval 'require(q[Foo$bar])';
like($@, qr/Can't locate Foo\$bar in \@INC/,
"can't inject extra code via require");
done_testing;
|
