|
|
|
@ -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( |
|
|
|
@ -662,7 +662,7 @@ sub attributes { |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
@ -1032,7 +1032,7 @@ qr/^(?:\*\.)?(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][ |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
@ -1117,7 +1117,7 @@ qr/^(?:\*\.)?(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][ |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
@ -1140,7 +1140,7 @@ qr/^(?:\*\.)?(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][ |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
@ -1495,7 +1495,7 @@ qr/^(?:\*\.)?(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][ |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
@ -1541,7 +1541,7 @@ qr/^(?:\*\.)?(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][ |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
@ -1900,7 +1900,7 @@ qr/^(?:\*\.)?(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][ |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
@ -2237,7 +2237,7 @@ qr/^(?:\*\.)?(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][ |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
@ -2954,7 +2954,7 @@ qr/(?:(?:https?):\/\/(?:(?:(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.] |
|
|
|
|
|
|
|
|
|
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( |
|
|
|
|