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

(-)a/installer/data/mysql/updatedatabase.pl (-1 / +3 lines)
Lines 9732-9743 sub ExecDBRev { Link Here
9732
        $rv = 1;
9732
        $rv = 1;
9733
    } elsif( $file =~ /\.pl$/ ) {
9733
    } elsif( $file =~ /\.pl$/ ) {
9734
    #Run perl script
9734
    #Run perl script
9735
        my $dbh = C4::Context->dbh;
9736
        $dbh->{RaiseError} = 1;
9735
        $rv = do $atomicupd->{location}. "/$file";
9737
        $rv = do $atomicupd->{location}. "/$file";
9736
        if( !$rv ) {
9738
        if( !$rv ) {
9737
            print "ERROR: $@\n" if $@;
9739
            print "ERROR: $@\n" if $@;
9738
            print "ERROR: $!\n" if $! && !$@;
9740
            print "ERROR: $!\n" if $! && !$@;
9739
            $rv = 1 if !$! && !$@; #apparently, the file does not end with 1;
9741
            $rv = 1 if !$! && !$@; #apparently, the file does not end with 1;
9740
        }
9742
        }
9743
        $dbh->{RaiseError} = 0;
9741
    } elsif( $file =~ /\.sql$/ ) {
9744
    } elsif( $file =~ /\.sql$/ ) {
9742
    #Run sql file via installer
9745
    #Run sql file via installer
9743
        my $installer = C4::Installer->new();
9746
        my $installer = C4::Installer->new();
9744
- 

Return to bug 13068