Lines 19-26
use Modern::Perl;
Link Here
|
19 |
use Test::More tests => 1; |
19 |
use Test::More tests => 1; |
20 |
use File::Slurp; |
20 |
use File::Slurp; |
21 |
use C4::Context; |
21 |
use C4::Context; |
22 |
my $content = read_file( C4::Context->config("intranetdir") |
22 |
|
|
|
23 |
my $content; |
24 |
if ( -e 'blib/INTRANET_CGI_DIR/installer/data/mysql/kohastructure.sql' ) { |
25 |
#debian package build process |
26 |
$content = read_file('blib/INTRANET_CGI_DIR/installer/data/mysql/kohastructure.sql'); |
27 |
} |
28 |
else { |
29 |
$content = read_file( C4::Context->config("intranetdir") |
23 |
. '/installer/data/mysql/kohastructure.sql' ); |
30 |
. '/installer/data/mysql/kohastructure.sql' ); |
|
|
31 |
} |
24 |
my @drop_stmt_missing; |
32 |
my @drop_stmt_missing; |
25 |
my $ccc = $content; |
33 |
my $ccc = $content; |
26 |
while ( $content =~ m|CREATE TABLE `?([^`\n ]*)`?\s?\(\s*\n|g ) { |
34 |
while ( $content =~ m|CREATE TABLE `?([^`\n ]*)`?\s?\(\s*\n|g ) { |
27 |
- |
|
|