diff --git a/perl-xCAT-2.0/xCAT/Client.pm b/perl-xCAT-2.0/xCAT/Client.pm index 8fe608c8a..08684638e 100644 --- a/perl-xCAT-2.0/xCAT/Client.pm +++ b/perl-xCAT-2.0/xCAT/Client.pm @@ -28,7 +28,9 @@ unless ($inet6support) { } use XML::Simple; -$XML::Simple::PREFERRED_PARSER='XML::Parser'; +if ($^O =~ /^linux/i) { + $XML::Simple::PREFERRED_PARSER='XML::Parser'; +} require Data::Dumper; use Storable qw(dclone); my $xcathost='localhost:3001';