handle copyright less xml

This commit is contained in:
Mark Andrews 2005-09-06 01:59:47 +00:00
parent 8267819c42
commit ef443ff786

View file

@ -15,7 +15,7 @@
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# $Id: update_copyrights,v 1.32.18.8 2005/05/15 23:52:25 marka Exp $
# $Id: update_copyrights,v 1.32.18.9 2005/09/06 01:59:47 marka Exp $
require 5.002;
@ -244,10 +244,15 @@ foreach $file (keys %file_types) {
if (/^<!DOCTYPE/) {
$before_copyright = $_;
$_ = <SOURCE>;
while (! /^<!/ ) {
;
while (!eof(SOURCE) && ! /^<!/ ) {
$before_copyright = "$before_copyright$_";
$_ = <SOURCE>;
}
if (eof(SOURCE)) {
close(SOURCE);
next;
}
}
if (/^<!/) {
$_ = <SOURCE> if $_ eq "<!--\n";