Added Imager version to output log.

diff --git a/Changes b/Changes
index 5a95ed4c04ec706ddba19958b2ad5005b3ce29a3..285ac8cfed7501aab8a68f448b7dc2f1e6eb57e3 100644 (file)
--- 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 >
 
         - fixed stupid bug in deleting tags
        - fixed minor pod errors involving >
 

-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
         - 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
         - 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:
 =================================================================
 
         For latest versions check the Imager-devel pages:

diff --git a/Imager.pm b/Imager.pm
index 41d687f08fc60d0bdfb6e57c4580dc91a2b3417a..892db9230b3368531e876a43d6f537d6f09355ae 100644 (file)
--- a/Imager.pm
+++ b/Imager.pm
@@ -382,11 +382,18 @@ BEGIN {
 #  print Dumper(@_);
 #}
 
 #  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'});
   }
 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'};
   }
   if (exists $parms{'warn_obsolete'}) {
     $warn_obsolete = $parms{'warn_obsolete'};
   }

diff --git a/Imager.xs b/Imager.xs
index 2cc3f67293da5f5845f6c336156e5efe97fe5c29..a24784122ec672b76c4ea363f3cbc94387c75e45 100644 (file)
--- a/Imager.xs
+++ b/Imager.xs
@@ -1192,7 +1192,7 @@ i_img_empty_ch(im,x,y,ch)
               int     ch
 
 void
               int     ch
 
 void

-init_log(name,level)
+m_init_log(name,level)

              char*    name
               int     level
 
              char*    name
               int     level