--- Image-Xpm-1.11/Xpm.pm-	2009-11-26 21:18:10.000000000 +0300
+++ Image-Xpm-1.11/Xpm.pm	2010-06-10 20:19:51.853069856 +0400
@@ -323,14 +323,9 @@ sub load { # Object method
         open $fh, $file or croak "load() failed to open `$file': $!" ;
     }
     elsif( ref($file) eq 'SCALAR' ) {
-	if( $] >= 5.008001 ) { # 5.8.0 dumps core when using "scalar open"
-	    eval q{ open $fh, "<", $file } # avoid syntax error with pre-5.6 perls
-		or croak "cannot handle scalar value: $!";
-	}
-	else {
-	    require IO::String;
-	    $fh = IO::String->new( $$file );
-	}
+	use 5.008001;
+	open $fh, "<", \$$file
+	    or croak "cannot handle scalar value: $!";
     }
     else {
         seek($file, 0, 0) or croak "load() can't rewind handle for `$file': $!";