remove extra <
This commit is contained in:
@@ -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";
|
||||
|
||||
Reference in New Issue
Block a user