allow Regexp objects for strings in the schema

The 'pattern' property has type string and format regex, so
it makes sense to allow Regexp objects to be used for it.

While check_type() doesn't know the format, Regexp objects
can be treated like strings anyway, including compared via
'eq' or matched via '=~', so we allow strings to generally
come from a Regexp object.

diff --git a/src/PVE/JSONSchema.pm b/src/PVE/JSONSchema.pm
index 5b5fe1568a234a3c89832d2dba825c38be243952..b53736e4c63b0ec9975e2b385defcb71229e8597 100644 (file)
--- a/src/PVE/JSONSchema.pm
+++ b/src/PVE/JSONSchema.pm
@@ -645,6 +645,9 @@ sub check_type {
                return undef;
            }
            return 1;
                return undef;
            }
            return 1;

+       } elsif ($type eq 'string' && $vt eq 'Regexp') {
+           # qr// regexes can be used as strings and make sense for format=regex
+           return 1;

        } else {
            if ($vt) {
                add_error($errors, $path, "type check ('$type') failed - got $vt");
        } else {
            if ($vt) {
                add_error($errors, $path, "type check ('$type') failed - got $vt");