--- 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;