From: Arnar Mar Hrafnkelsson <addi@cpan.org>
Date: Mon, 1 Apr 2002 13:55:25 +0000 (+0000)
Subject: Added Imager version to output log.
X-Git-Tag: Imager-0.48^2~395
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/f83bf98a4092a9cb0f6f9532e7bbe2725b4e240f?ds=sidebyside

Added Imager version to output log.
---

diff --git a/Changes b/Changes
index 5a95ed4c..285ac8cf 100644
--- a/Changes
+++ b/Changes
@@ -606,7 +606,7 @@ Revision history for Perl extension Imager.
         - fixed stupid bug in deleting tags
 	- fixed minor pod errors involving &gt;
 
-0.40?
+0.40pre2
         - make t1log optional, defaulting to off.  You can enable the log
           with Imager::init(t1log=>1) (Ticket #369)
         - quote a few hash key strings to prevent warnings on 5.004
@@ -628,7 +628,8 @@ Revision history for Perl extension Imager.
         - difference() method
         - hide (with static) or rename many symbols that could possibly
           cause conflicts with other libraries or perl
-
+				- Fix runaway cache problem for freetype1 font cache.
+				- Added version logging when log is started.
 =================================================================
 
         For latest versions check the Imager-devel pages:
diff --git a/Imager.pm b/Imager.pm
index 41d687f0..892db923 100644
--- a/Imager.pm
+++ b/Imager.pm
@@ -382,11 +382,18 @@ BEGIN {
 #  print Dumper(@_);
 #}
 
+sub init_log {
+	m_init_log($_[0],$_[1]);
+	log_entry("Imager $VERSION starting\n", 1);
+}
+
+
 sub init {
   my %parms=(loglevel=>1,@_);
   if ($parms{'log'}) {
     init_log($parms{'log'},$parms{'loglevel'});
   }
+
   if (exists $parms{'warn_obsolete'}) {
     $warn_obsolete = $parms{'warn_obsolete'};
   }
diff --git a/Imager.xs b/Imager.xs
index 2cc3f672..a2478412 100644
--- a/Imager.xs
+++ b/Imager.xs
@@ -1192,7 +1192,7 @@ i_img_empty_ch(im,x,y,ch)
 	       int     ch
 
 void
-init_log(name,level)
+m_init_log(name,level)
 	      char*    name
 	       int     level