no longer export anything by default

https://rt.cpan.org/Ticket/Display.html?id=65228

diff --git a/Changes b/Changes
index b3f3180f300e99a6569cbab84a6e48ee74c5053d..2d09e03e21bafcd6d3bf71e445ca086bc91d3291 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
 ===========
 

diff --git a/Imager.pm b/Imager.pm
index eeadd91855f49e9d86351f3ab4cfd019d4265f66..8af81e914794b5bb8ca96380e1aa7c4ad01fe91c 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=

diff --git a/T1/t/t20oo.t b/T1/t/t20oo.t
index 7334f99535a0193f554d32ed8677c15473e4f4c3..0aa57433f3748c25c08aef7c91a70492a549e32a 100644 (file)
--- a/T1/t/t20oo.t
+++ b/T1/t/t20oo.t
@@ -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";
 

diff --git a/t/t15color.t b/t/t15color.t
index ba46edda24405cbdb0adb33a1963c1803f8934e8..edcb923cc48400131570a8d7b5a9154b1e843e01 100644 (file)
--- a/t/t15color.t
+++ b/t/t15color.t
@@ -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');

diff --git a/t/t36oofont.t b/t/t36oofont.t
index 2e0ced255fa68f2c77d7522e30a1f8ca9d33ee86..7d24f800f0bf1ae1d21ffee227e35bd65ab30205 100644 (file)
--- a/t/t36oofont.t
+++ b/t/t36oofont.t
@@ -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';