| 294 | | $newxml =~ s/<md5sum>.+<\/md5sum>/<md5sum>$md5sum<\/md5sum>/; |
|---|
| 295 | | $newxml =~ s/<location>.+<\/location>/<location>$reldir$rver\/$filename<\/location>/; |
|---|
| | 294 | |
|---|
| | 295 | unless ($newxml =~ s/<md5sum>.*<\/md5sum>/<md5sum>$md5sum<\/md5sum>/) |
|---|
| | 296 | { |
|---|
| | 297 | $newxml =~ s|</module>|<md5sum>$md5sum></md5sum>\n</module>|; |
|---|
| | 298 | } |
|---|
| | 299 | |
|---|
| | 300 | unless ($newxml =~ s/<location>.*<\/location>/<location>$reldir$rver\/$filename<\/location>/) |
|---|
| | 301 | { |
|---|
| | 302 | $newxml =~ s|</module>|<location>$reldir$rver></location>\n</module>|; |
|---|
| | 303 | } |
|---|
| | 304 | |
|---|