|
|
|
@ -27,7 +27,7 @@ sub types { |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -821,7 +821,7 @@ qr/(?:(?:https?):\/\/(?:(?:(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.] |
|
|
|
|
'type' => 'text' |
|
|
|
|
}, |
|
|
|
|
'cspStyle' => { |
|
|
|
|
'default' => '\'self\'', |
|
|
|
|
'default' => '\'self\' \'unsafe-inline\'', |
|
|
|
|
'type' => 'text' |
|
|
|
|
}, |
|
|
|
|
'customAddParams' => { |
|
|
|
@ -927,7 +927,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval $s; |
|
|
|
|
my $err = join( |
|
|
|
@ -996,7 +996,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -1019,7 +1019,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -1331,7 +1331,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval $s; |
|
|
|
|
my $err = join( |
|
|
|
@ -1368,7 +1368,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -2018,7 +2018,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
|