|
Lines 427-448
sub load_sql {
Link Here
|
| 427 |
|
427 |
|
| 428 |
my $dbh = $self->{ dbh }; |
428 |
my $dbh = $self->{ dbh }; |
| 429 |
|
429 |
|
| 430 |
my $dup_stderr; |
430 |
eval { |
| 431 |
do { |
431 |
DBIx::RunSQL->run_sql_file( |
| 432 |
local *STDERR; |
432 |
dbh => $dbh, |
| 433 |
open STDERR, ">>", \$dup_stderr; |
433 |
sql => $filename, |
| 434 |
|
434 |
); |
| 435 |
eval { |
|
|
| 436 |
DBIx::RunSQL->run_sql_file( |
| 437 |
dbh => $dbh, |
| 438 |
sql => $filename, |
| 439 |
); |
| 440 |
}; |
| 441 |
}; |
435 |
}; |
| 442 |
# errors thrown while loading installer data should be logged |
436 |
# errors thrown while loading installer data should be logged |
| 443 |
if( $dup_stderr ) { |
437 |
if( $@ ) { |
| 444 |
warn "C4::Installer::load_sql returned the following errors while attempting to load $filename:\n"; |
438 |
warn "C4::Installer::load_sql returned the following errors while attempting to load $filename:\n"; |
| 445 |
$error = $dup_stderr; |
439 |
$error = $@; |
| 446 |
|
440 |
|
| 447 |
} |
441 |
} |
| 448 |
|
442 |
|
| 449 |
- |
|
|