--- Image-Xbm-1.08/Xbm.pm-	2000-11-09 22:05:51 +0300
+++ Image-Xbm-1.08/Xbm.pm	2005-04-16 12:56:52 +0400
@@ -12,7 +12,6 @@
 @ISA = qw( Image::Base ) ;
 
 use Carp qw( carp croak ) ;
-use Symbol () ;
 
 
 # Private class data 
@@ -373,7 +372,7 @@ sub load { # Object method
 
     my( @val, $width, $height, $hotx, $hoty ) ;
     local $_ ;
-    my $fh = Symbol::gensym ;
+    my $fh;
 
     if( not ref $file ) {
         open $fh, $file or croak "load() failed to open `$file': $!" ;
@@ -443,8 +442,7 @@ sub save { # Object method
     my $MASK1  = $MASK + 1 ;
     my $ROWSn1 = $ROWS - 1 ;
 
-    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/\.xbm$//o ;