# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
-# $Id: update_copyrights,v 1.39 2005/05/13 01:06:30 marka Exp $
+# $Id: update_copyrights,v 1.40 2005/05/15 23:48:12 marka Exp $
require 5.002;
$/ = "\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;
}