Copy filename validation patterns to keymaster

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 956d1a867c3d4701dd2bce11d9e4e4f9e63f1c12..c32e34a38755f69db49b557de37339dab1180b3d 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -772,6 +772,7 @@ my $RE_filename_here = qr/[[:alnum:]][-.[:alnum:]_+~]*/;
 #  a trailing slash is not allowed
 #  a leading slash is not allowed
 my $RE_filename_relative = qr[$RE_filename_here(?:/$RE_filename_here)*];
+# These patterns are also copied in the keymaster; keep them matched.
 
 # limit on the length of a filename that will be processed
 use constant MAX_FILE_NAME_LEN => 100;

diff --git a/keymaster.pl b/keymaster.pl
index 2de850f34db8c052c11fbd8f02f55cceb007474c..c91f619892ef84abb59c36c7dc796bdb7f4829d1 100755 (executable)
--- a/keymaster.pl
+++ b/keymaster.pl
@@ -111,6 +111,10 @@ use Text::Wrap;
 use Pod::Usage;
 use Getopt::Long;
 
+# file name validation patterns copied from gatekeeper; keep them matched
+my $RE_filename_here = qr/[[:alnum:]][-.[:alnum:]_+~]*/;
+my $RE_filename_relative = qr[$RE_filename_here(?:/$RE_filename_here)*];
+
 =head1 INTERNALS
 
 This section catches the internal documentation for internal functions