diff --git a/xCAT-server/lib/perl/xCAT/XML.pm b/xCAT-server/lib/perl/xCAT/XML.pm
index cce54bcdc..a570c87fc 100644
--- a/xCAT-server/lib/perl/xCAT/XML.pm
+++ b/xCAT-server/lib/perl/xCAT/XML.pm
@@ -51,7 +51,8 @@ sub build_tree_xml_parser {
   }
  
   my $xp = XML::Parser->new(Style => 'Tree');
-  $xp->setHandlers(ExternEnt => sub { return $_[2] });
+  $xp->setHandlers(ExternEnt => sub { return $_[2] },
+                   Doctype   => sub { croak 'XML document type declaration is not accepted' });
   my($tree);
   if($filename) {
       # $tree = $xp->parsefile($filename);  # Changed due to prob w/mod_perl
@@ -68,7 +69,8 @@ sub build_tree_xml_parser {
 sub new_xml_parser {
   my($self) = @_;
   my $xp = XML::Parser->new(Style => 'Tree');
-  $xp->setHandlers(ExternEnt => sub {return $_[2]});
+  $xp->setHandlers(ExternEnt => sub {return $_[2]},
+                   Doctype   => sub { croak 'XML document type declaration is not accepted' });
   return $xp;
 }
 1;