no longer export anything by default
authorTony Cook <tony@develop-help.com>
Mon, 23 May 2011 11:14:04 +0000 (21:14 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 23 May 2011 11:14:04 +0000 (21:14 +1000)
https://rt.cpan.org/Ticket/Display.html?id=65228

Changes
Imager.pm
T1/t/t20oo.t
t/t15color.t
t/t36oofont.t

diff --git a/Changes b/Changes
index b3f3180..2d09e03 100644 (file)
--- a/Changes
+++ b/Changes
@@ -19,6 +19,9 @@ Bug fixes:
  - add to_rgb_double() method.
    https://rt.cpan.org/Ticket/Display.html?id=65101
 
+ - Imager no longer exports anything by default
+   https://rt.cpan.org/Ticket/Display.html?id=65228
+
 Imager 0.83 - 21 May 2011
 ===========
 
index eeadd91..8af81e9 100644 (file)
--- a/Imager.pm
+++ b/Imager.pm
@@ -94,14 +94,6 @@ use Imager::Font;
 );
 
 @EXPORT=qw(
-          init_log
-          i_list_formats
-          i_has_format
-          malloc_state
-          i_color_new
-
-          i_img_empty
-          i_img_empty_ch
          );
 
 %EXPORT_TAGS=
index 7334f99..0aa5743 100644 (file)
@@ -14,7 +14,7 @@ die $Imager::ERRSTR unless $red;
 
 ok((-d "testout" or mkdir "testout"), "make output directory");
 
-init_log("testout/t20oo.log", 1);
+Imager::init_log("testout/t20oo.log", 1);
 
 my $img=Imager->new(xsize=>300, ysize=>100) or die "$Imager::ERRSTR\n";
 
index ba46edd..edcb923 100644 (file)
@@ -14,7 +14,7 @@ use Imager::Test qw(is_fcolor4);
 
 -d "testout" or mkdir "testout";
 
-init_log("testout/t15color.log",1);
+Imager->open_log(log => "testout/t15color.log");
 
 my $c1 = Imager::Color->new(100, 150, 200, 250);
 ok(test_col($c1, 100, 150, 200, 250), 'simple 4-arg');
index 2e0ced2..7d24f80 100644 (file)
@@ -16,7 +16,7 @@ BEGIN { use_ok('Imager') };
 
 -d "testout" or mkdir "testout";
 
-init_log("testout/t36oofont.log", 1);
+Imager->open_log(log => "testout/t36oofont.log");
 
 my $fontname_tt=$ENV{'TTFONTTEST'}||'./fontfiles/dodge.ttf';