diff options
author | Yorhel <git@yorhel.nl> | 2021-01-04 14:06:11 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2021-01-04 14:06:20 +0100 |
commit | b1c4c8530730e41d4ddcf3448d4203a33d841f0f (patch) | |
tree | 23a469dc4ab205d3054e7f3c95ea55e61b671009 /lib | |
parent | 3fc190f1898342d63b1308a83152fe45a88f7c3f (diff) |
VN::List: Fix silly perl warning
That was introduced in f78f37e369567c91896aeeb505e706df4b4c12ff
Diffstat (limited to 'lib')
-rw-r--r-- | lib/VNWeb/VN/List.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/VNWeb/VN/List.pm b/lib/VNWeb/VN/List.pm index 8445efed..cb05e27f 100644 --- a/lib/VNWeb/VN/List.pm +++ b/lib/VNWeb/VN/List.pm @@ -59,7 +59,10 @@ TUWF::get qr{/experimental/v(?:/(?<char>all|[a-z0]))?}, sub { )->data; $opt->{q} //= $opt->{sq}; $opt->{ch} = $opt->{ch}[0]; - $opt->{ch} //= tuwf->capture('char') if tuwf->capture('char') ne 'all'; # compat with old URLs + + # compat with old URLs + my $oldch = tuwf->capture('char'); + $opt->{ch} //= $oldch if defined $oldch && $oldch ne 'all'; # URL compatibility with old filters if(!$opt->{f}->{query} && ($opt->{fil} || $opt->{rfil} || $opt->{cfil})) { |