--- Image-Xpm-1.09/Xpm.pm-	2000-11-09 22:05:56 +0300

+++ Image-Xpm-1.09/Xpm.pm	2005-04-16 13:03:34 +0400

@@ -13,7 +13,6 @@ use Image::Base;

 use Carp qw(carp croak);

-use Symbol ();

 ### Data structures

 #

@@ -318,7 +317,7 @@ sub load { # Object method

     my %palette;

     my $i;

     local $_;

-    my $fh = Symbol::gensym;

+    my $fh;

     if( not ref $file ) {

         open $fh, $file or croak "load() failed to open `$file': $!" ;

@@ -479,8 +478,7 @@ sub save { # Object method

     my ($width, $height, $cpp) = $self->get('-width', '-height', '-cpp');

     my $line;

-    my $fh = Symbol::gensym;

-    open $fh, ">$file" or croak "save() failed to open `$file': $!";

+    open my $fh, ">$file" or croak "save() failed to open `$file': $!";

     $file =~ s,^.*/,,o;            

     $file =~ s/\.xpm$//o;