Support three-digit video selection.

Signed-off-by: Jesús <heckyel@hyperbola.info>

2 files changed, 5 insertions, 5 deletions

diff --git a/bin/fair-viewer b/bin/fair-viewer
index f6159bc..0600c20 100755
--- a/bin/fair-viewer
+++ b/bin/fair-viewer
@@ -1943,7 +1943,7 @@ sub get_user_input {
 
     if ($opt{history}) {
         my $str = join(' ', grep { /\w/ } @{$args}, @{$keywords});
-        if ($str ne '' and $str !~ /^[0-9]{1,2}\z/) {
+        if ($str ne '' and $str !~ /^[0-9]{1,3}\z/) {
             $term->append_history(1, $opt{history_file});
         }
     }
@@ -2425,7 +2425,7 @@ sub get_reply {
 
 sub valid_num {
     my ($num, $array_ref) = @_;
-    return $num =~ /^[0-9]{1,2}\z/ && $num != 0 && $num <= @{$array_ref};
+    return $num =~ /^[0-9]{1,3}\z/ && $num != 0 && $num <= @{$array_ref};
 }
 
 sub adjust_width {
@@ -3005,7 +3005,7 @@ sub get_valid_numbers {
     foreach my $id (split(/[,\s]+/, $input)) {
         push @output,
             $id =~ /$range_num_re/ ? get_range_numbers($1, $2)
-          : $id =~ /^[0-9]{1,2}\z/ ? $id
+          : $id =~ /^[0-9]{1,3}\z/ ? $id
           :                          next;
     }
 
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}/;