| 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 | -  |  |  |