Commit badec81e authored by Mattias Päivärinta's avatar Mattias Päivärinta
Browse files

Tidy

parent bec487b5
......@@ -50,8 +50,8 @@ sub extract_roid {
}
elsif ( $token eq 'roid line' ) {
ref $value eq 'ARRAY' or croak "'roid line' value expected to be arrayref";
defined $value->[0] or croak "'roid line' value expected to have roid at position 0";
defined $value->[1] or croak "'hostname' value expected to have roid at position 1";
defined $value->[0] or croak "'roid line' value expected to have roid at position 0";
defined $value->[1] or croak "'hostname' value expected to have roid at position 1";
my ( $roid, $hostname ) = @{$value};
my @errors;
push @errors, grep { $_ ne 'expected roid suffix to be a registered epp repo id' } $types->validate_type( 'roid', $roid );
......@@ -95,7 +95,8 @@ sub scrub_u_label {
);
defined $ascii or croak 'unexpected return value';
return lc( $ascii =~ s/\.?$//r );
$ascii =~ s/\.?$//;
return lc( $ascii );
}
1;
......@@ -365,7 +365,7 @@ sub _line {
return;
}
ref $errors eq 'ARRAY' or confess;
ref $errors eq 'ARRAY' or confess;
ref $token_value eq 'ARRAY' or confess;
my ( $field_key, $field_translations, $field_value ) = @$token_value;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment