|
Lines 24302-24308
unless ( $ENV{HTTP_HOST} ) { # Is that correct?
Link Here
|
| 24302 |
} |
24302 |
} |
| 24303 |
for my $e ( @{ $report->{error} } ) { |
24303 |
for my $e ( @{ $report->{error} } ) { |
| 24304 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24304 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
| 24305 |
#say_failure( undef, Encode::encode_utf8("ERROR - " . $e->{error}) ); |
|
|
| 24306 |
$error_code = 1; |
24305 |
$error_code = 1; |
| 24307 |
} |
24306 |
} |
| 24308 |
|
24307 |
|
|
Lines 24313-24319
unless ( $ENV{HTTP_HOST} ) { # Is that correct?
Link Here
|
| 24313 |
} |
24312 |
} |
| 24314 |
for my $e ( @{ $report->{error} } ) { |
24313 |
for my $e ( @{ $report->{error} } ) { |
| 24315 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24314 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
| 24316 |
#say_failure( undef, Encode::encode_utf8("ERROR - " . $e->{error}) ); |
|
|
| 24317 |
$error_code = 1; |
24315 |
$error_code = 1; |
| 24318 |
} |
24316 |
} |
| 24319 |
exit $error_code; |
24317 |
exit $error_code; |
| 24320 |
- |
|
|