fully collect the text before a comment in a docbook source

This commit is contained in:
Mark Andrews 2005-05-12 00:28:04 +00:00
parent 81059f7c19
commit 21abfe71f9

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.33 2005/04/07 03:50:05 marka Exp $
# $Id: update_copyrights,v 1.34 2005/05/12 00:28:04 marka Exp $
require 5.002;
@ -222,6 +222,10 @@ foreach $file (keys %file_types) {
if (/^<!DOCTYPE/) {
$before_copyright = $_;
$_ = <SOURCE>;
while (! /^<!/ ) {
$before_copyright = "$before_copyright$_";
$_ = <SOURCE>;
}
}
if (/^<!/) {
$_ = <SOURCE> if $_ eq "<!--\n";