--- Image-Xpm-1.09/Xpm.pm~	2000-11-09 19:05:56 +0000

+++ Image-Xpm-1.09/Xpm.pm	2004-12-16 05:19:55 +0000

@@ -167,8 +167,9 @@ sub new { # Class and object method

     $self->{-cc} = ' ' x $self->{-cpp};

     my $file = $self->get('-file');

-    $self->load if defined $file and -r $file and not $self->{-pixels};

-

+    if (defined $file and not $self->{-pixels}) {

+       $self->load if ref $file or -r $file;

+    }

     croak "new() `$file' not found or unreadable" 

     if defined $file and not defined $self->get('-width');