Index: cvs2cl.pl =================================================================== RCS file: /usr/local/cvs/cvs2cl/cvs2cl.pl,v retrieving revision 2.39 diff -r2.39 cvs2cl.pl 11,13c11,13 < ## $Revision$ < ## $Date$ < ## $Author$ --- > ## $Revision$ > ## $Date$ > ## $Author$ 127a128,130 > # XML encoding > my $XML_Encoding = ""; > 719,720c722,728 < print LOG_OUT "\n\n" < . "\n\n"; --- > if($XML_Encoding){ > print LOG_OUT "\n\n"; > } > else{ > print LOG_OUT "\n\n"; > } > print LOG_OUT "\n\n"; 1633a1642,1645 > elsif ($arg =~ /^-e$|^--encoding$/) { > my $narg = shift (@ARGV) || die "$arg needs argument.\n"; > $XML_Encoding = $narg ; > } 1777a1790 > -e ALPHABET, --encoding ALPHABET Insert encoding clause in XML header