6 # Copyright (c) Dirk Koopman, G1TLH
16 use vars qw($VERSION $BRANCH $xs);
17 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
18 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
19 $main::build += $VERSION;
20 $main::branch += $BRANCH;
22 $xs = undef; # the XML::Simple parser instance
26 return unless $main::do_xml;
28 eval { require XML::Simple; };
31 $DXProt::handle_xml = 1;
32 $xs = new XML::Simple();