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