marsadm: regex for checking reserved names

This commit is contained in:
Thomas Schoebel-Theuer 2022-01-20 03:13:44 +01:00
parent 7bb15152dc
commit bea4b647fd

View File

@ -27,6 +27,13 @@ use warnings;
umask 0077;
# regexes for scanning of reserved terminal symbol classes
use v5.10;
my $match_reserved_substr = qr'\(?(none|local|localhost)\)?';
my $match_reserved_id = qr{^$match_reserved_substr$};
##################################################################
# global defaults