--- 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': $!";