diff options
author | Yorhel <git@yorhel.nl> | 2010-12-04 19:53:31 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2010-12-04 19:53:31 +0100 |
commit | ed13a12f91b5455cac47e4375f0dbc326d3179e5 (patch) | |
tree | 8717cb1932dc8f49792bb291c3cf9472228c4796 | |
parent | 4af731e1645b06f4133e093c3e3d69dbbd2094e5 (diff) |
Handler::Releases: Fixed perl warning in _fil_compat()
-rw-r--r-- | lib/VNDB/Handler/Releases.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/VNDB/Handler/Releases.pm b/lib/VNDB/Handler/Releases.pm index e2a18e1a..bf4d5133 100644 --- a/lib/VNDB/Handler/Releases.pm +++ b/lib/VNDB/Handler/Releases.pm @@ -580,7 +580,7 @@ sub _fil_compat { { name => 're', required => 0, multi => 1, default => 0, enum => [ 1..$#{$self->{resolutions}} ] }, ); return if $f->{_err}; - $fil->{minage} //= [ grep defined($_) && $f->{ma_m} ? $f->{ma_a} >= $_ : $f->{ma_a} <= $_, @{$self->{age_ratings}} ] if $f->{ma_a} || $f->{ma_m}; + $fil->{minage} //= [ grep defined($_) && $f->{ma_m} ? $f->{ma_a} >= $_ : defined ($_) && $f->{ma_a} <= $_, @{$self->{age_ratings}} ] if $f->{ma_a} || $f->{ma_m}; $fil->{date_after} //= $f->{mi} if $f->{mi}; $fil->{date_before} //= $f->{ma} if $f->{ma} < 99990000; $fil->{plat} //= $f->{pl} if $f->{pl}[0]; |