comment out debugging prints

This commit is contained in:
Mark Andrews 2005-05-15 23:52:25 +00:00
parent e250973f5d
commit 5fe68f8a6d

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.7 2005/05/13 01:08:31 marka Exp $
# $Id: update_copyrights,v 1.32.18.8 2005/05/15 23:52:25 marka Exp $
require 5.002;
@ -419,12 +419,12 @@ foreach $file (keys %file_types) {
$/ = "\n";
if ($type eq 'SGML' && m:<docinfo>.*?</docinfo>:s) {
print "docinfo: $file\n";
# print "docinfo: $file\n";
my $r = copyrights(@years);
s:<docinfo>.*?</docinfo>:<docinfo>\n$r </docinfo>:s;
}
if ($type eq 'SGML' && m:<bookinfo>.*?</bookinfo>:s) {
print "bookinfo: $file\n";
# print "bookinfo: $file\n";
my $r = copyrights(@years);
s:<bookinfo>.*?</bookinfo>:<bookinfo>\n$r </bookinfo>:s;
}