in reply to adding some more attributes in an existing xml using perl

Using XML::XSH2, a wrapper around XML::LibXML: 
open 1061307.xml ;
for /Codeline/Patch-attributes {
    set @DO-name "UWLJWF11P" ;
    set @Changelist "159103" ;
}
save :b ;

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom