remove extra <

This commit is contained in:
Mark Andrews
2005-05-12 08:12:02 +00:00
parent 3ea0b51727
commit f8711ab89d

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.4 2005/05/12 07:24:10 marka Exp $
# $Id: update_copyrights,v 1.32.18.5 2005/05/12 08:12:02 marka Exp $
require 5.002;
@@ -418,7 +418,7 @@ foreach $file (keys %file_types) {
if ($type eq 'SGML' && m:<docinfo>.*?</docinfo>:s) {
print "docinfo: $file\n";
my $r = copyrights(@years);
s:<docinfo>.*?></docinfo>:<docinfo>\n$r </docinfo>:s;
s:<docinfo>.*?</docinfo>:<docinfo>\n$r </docinfo>:s;
}
if ($type eq 'SGML' && m:<bookinfo>.*?</bookinfo>:s) {
print "bookinfo: $file\n";