diff options
| author | trizen <trizen@protonmail.com> | 2020-03-14 02:08:16 +0200 |
|---|---|---|
| committer | Jesús <heckyel@hyperbola.info> | 2020-03-14 12:09:26 -0500 |
| commit | 169a1be8cc6b2d71edf3308612de07338767f15c (patch) | |
| tree | 65c7a8d1cea3b99087eb3f0ab8674f8ffe58af06 /lib/WWW | |
| parent | 7c60323c51dd57dbecea3d4e14f059e40b07bb54 (diff) | |
| download | fair-viewer-169a1be8cc6b2d71edf3308612de07338767f15c.tar.lz fair-viewer-169a1be8cc6b2d71edf3308612de07338767f15c.tar.xz fair-viewer-169a1be8cc6b2d71edf3308612de07338767f15c.zip | |
Support three-digit video selection.
Signed-off-by: Jesús <heckyel@hyperbola.info>
Diffstat (limited to 'lib/WWW')
| -rw-r--r-- | lib/WWW/FairViewer/RegularExpressions.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/WWW/FairViewer/RegularExpressions.pm b/lib/WWW/FairViewer/RegularExpressions.pm index 990426e..6c298f2 100644 --- a/lib/WWW/FairViewer/RegularExpressions.pm +++ b/lib/WWW/FairViewer/RegularExpressions.pm @@ -21,9 +21,9 @@ WWW::FairViewer::RegularExpressions - Various utils. my $opt_begin_chars = q{:;=}; # stdin option valid begin chars # Options -our $range_num_re = qr{^([0-9]{1,2}+)(?>-|\.\.)([0-9]{1,2}+)?\z}; +our $range_num_re = qr{^([0-9]{1,3}+)(?>-|\.\.)([0-9]{1,3}+)?\z}; our $digit_or_equal_re = qr/(?(?=[1-9])|=)/; -our $non_digit_or_opt_re = qr{^(?!$range_num_re)(?>[0-9]{1,2}[^0-9]|[0-9]{3}|[^0-9$opt_begin_chars])}; +our $non_digit_or_opt_re = qr{^(?!$range_num_re)(?>[0-9]{1,3}[^0-9]|[0-9]{4}|[^0-9$opt_begin_chars])}; # Generic name my $generic_name_re = qr/[a-zA-Z0-9_.\-]{11,34}/; |