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

+++ Image-Xpm-1.09/Xpm.pm	2005-04-16 13:01:58 +0400

@@ -324,8 +324,7 @@ sub load { # Object method

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

     }

     elsif( ref($file) eq 'SCALAR' ) {

-        require IO::String;

-        $fh = IO::String->new( $$file );

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

     }

     else {

         seek($file, 0, 0) or croak "load() can't rewind handle for `$file': $!";