View | Details | Raw Unified | Return to bug 19783
Collapse All | Expand All

(-)a/t/check_kohastructure.t (-2 / +9 lines)
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
- 

Return to bug 19783