Removing unconditionnal warning

[koha.git] / installer / data / mysql / updatedatabase.pl

diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index b98834c..1183375 100755 (executable)
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -15,7 +15,7 @@
 # NOTE: Please keep the version in kohaversion.pl up-to-date!
 
 use strict;
-# use warnings;
+use warnings;
 
 # CPAN modules
 use DBI;
@@ -1960,7 +1960,6 @@ END_SQL
     SetVersion ($DBversion);
 }
 if (C4::Context->preference("Version") =~/3\.00/) {
-       warn "inside 3.00";
         my $perllibdir=C4::Context->config('intranetdir');
        my $return=do qq($perllibdir/installer/data/mysql/updatedatabase30.pl);
        unless ($return){
@@ -1968,6 +1967,8 @@ if (C4::Context->preference("Version") =~/3\.00/) {
                print STDERR "cannot read file $ENV{'PERL5LIB'}/installer/data/mysql/updatedatabase30.pl : $@ \n" if ($@);
        }
 }
+
+
 =item DropAllForeignKeys($table)
 
   Drop all foreign keys of the table $table