Call is_xml() less.

1 files changed, 17 insertions, 17 deletions

diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check
index d6f69d2..63e39c8 100755
--- a/httpd/cgi-bin/check
+++ b/httpd/cgi-bin/check
@@ -3391,25 +3391,25 @@ sub start_element
     my $xmlns_value = undef;
 
     # If in XML mode, find namespace used for each element.
-    if (&W3C::Validator::MarkupValidator::is_xml($self->{_file})) {
-        if (my $attr = $element->{Attributes}->{xmlns}) {
-            $xmlns_value = "";
-
-            # Try with SAX method
-            if ($attr->{Value}) {
-                $has_xmlns   = TRUE;
-                $xmlns_value = $attr->{Value};
-            }
+    if ((my $attr = $element->{Attributes}->{xmlns}) &&
+        &W3C::Validator::MarkupValidator::is_xml($self->{_file}))
+    {
+        $xmlns_value = "";
 
-            #next if $has_xmlns;
+        # Try with SAX method
+        if ($attr->{Value}) {
+            $has_xmlns   = TRUE;
+            $xmlns_value = $attr->{Value};
+        }
 
-            # The following is not SAX, but OpenSP specific.
-            my $defaulted = $attr->{Defaulted} || '';
-            if ($defaulted eq "specified") {
-                $has_xmlns = TRUE;
-                $xmlns_value .=
-                    join("", map { $_->{Data} } @{$attr->{CdataChunks}});
-            }
+        #next if $has_xmlns;
+
+        # The following is not SAX, but OpenSP specific.
+        my $defaulted = $attr->{Defaulted} || '';
+        if ($defaulted eq "specified") {
+            $has_xmlns = TRUE;
+            $xmlns_value .=
+                join("", map { $_->{Data} } @{$attr->{CdataChunks}});
         }
     }