version 1.517, 2010/09/29 15:56:03
|
version 1.518, 2010/09/29 16:09:20
|
Line 1437 sub verify_html {
|
Line 1437 sub verify_html {
|
my ($is_html,$is_xml); |
my ($is_html,$is_xml); |
if ($filecontents =~/(?:\<|\<\;)\?xml[^\<]*\?(?:\>|\>\;)/is) { |
if ($filecontents =~/(?:\<|\<\;)\?xml[^\<]*\?(?:\>|\>\;)/is) { |
$is_xml = 1; |
$is_xml = 1; |
} elsif ($filecontents =~/(?:\<|\<\;)html(?:\s+[^\<]+|\s*)[^\<]*(?:\>|\>\;)/is) { |
} elsif ($filecontents =~/(?:\<|\<\;)html(?:\s+[^\<]+|\s*)(?:\>|\>\;)/is) { |
$is_html = 1; |
$is_html = 1; |
} |
} |
unless ($is_xml || $is_html) { |
unless ($is_xml || $is_html) { |