handle copyright less xml

util/update_copyrights

@@ -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.40 2005/05/15 23:48:12 marka Exp $
+# $Id: update_copyrights,v 1.41 2005/09/06 01:59:12 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";