Lines 8-14
use Modern::Perl;
Link Here
|
8 |
use CGI qw ( -utf8 ); |
8 |
use CGI qw ( -utf8 ); |
9 |
use Test::MockModule; |
9 |
use Test::MockModule; |
10 |
use List::MoreUtils qw/all any none/; |
10 |
use List::MoreUtils qw/all any none/; |
11 |
use Test::More tests => 12; |
11 |
use Test::More tests => 13; |
12 |
use Test::Warn; |
12 |
use Test::Warn; |
13 |
use C4::Members; |
13 |
use C4::Members; |
14 |
use Koha::AuthUtils qw/hash_password/; |
14 |
use Koha::AuthUtils qw/hash_password/; |
Lines 112-117
$dbh->{RaiseError} = 1;
Link Here
|
112 |
../../../../../../../../../../../../../../../etc/passwd |
112 |
../../../../../../../../../../../../../../../etc/passwd |
113 |
test/../../../../../../../../../../../../../../etc/passwd |
113 |
test/../../../../../../../../../../../../../../etc/passwd |
114 |
/etc/passwd |
114 |
/etc/passwd |
|
|
115 |
test/does_not_finished_by_tt_t |
115 |
) |
116 |
) |
116 |
) { |
117 |
) { |
117 |
eval { |
118 |
eval { |
118 |
- |
|
|