mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2024-12-14 10:13:05 +02:00
d2057c53bd
YAML::XS requires libyaml so it not as portable as pure Perl versions of YAML. Instead of using YAML:PP just use the general YAML::Any module which uses whatever is installed. We are not concerned about performance for YAML so whatever works is fine.
53 lines
2.1 KiB
Perl
53 lines
2.1 KiB
Perl
####################################################################################################################################
|
|
# Error Definition Data
|
|
####################################################################################################################################
|
|
package pgBackRestBuild::Error::Data;
|
|
|
|
use strict;
|
|
use warnings FATAL => qw(all);
|
|
use Carp qw(confess);
|
|
|
|
use Exporter qw(import);
|
|
our @EXPORT = qw();
|
|
use Storable qw(dclone);
|
|
|
|
####################################################################################################################################
|
|
# Error min and max values
|
|
####################################################################################################################################
|
|
use constant ERRDEF_MIN => 25;
|
|
push @EXPORT, qw(ERRDEF_MIN);
|
|
use constant ERRDEF_MAX => 125;
|
|
push @EXPORT, qw(ERRDEF_MAX);
|
|
|
|
####################################################################################################################################
|
|
# Error definition data
|
|
####################################################################################################################################
|
|
my $rhErrorDefine;
|
|
|
|
####################################################################################################################################
|
|
# Load error definition from YAML
|
|
####################################################################################################################################
|
|
sub errorDefineLoad
|
|
{
|
|
my $strErrorYaml = shift;
|
|
|
|
require YAML::Any;
|
|
YAML::Any->import(qw(Load));
|
|
|
|
$rhErrorDefine = Load($strErrorYaml);
|
|
}
|
|
|
|
push @EXPORT, qw(errorDefineLoad);
|
|
|
|
####################################################################################################################################
|
|
# Get error definition
|
|
####################################################################################################################################
|
|
sub errorDefine
|
|
{
|
|
return dclone($rhErrorDefine);
|
|
}
|
|
|
|
push @EXPORT, qw(errorDefine);
|
|
|
|
1;
|