- extra concept index entries

[imager.git] / lib / Imager / Color.pm

diff --git a/lib/Imager/Color.pm b/lib/Imager/Color.pm
index ddc3e695dedeb7ed7e8c42ce6b734bd8c0399609..fb76992895fff4004d5b9f0fe46675bbccdf0b5c 100644 (file)
--- a/lib/Imager/Color.pm
+++ b/lib/Imager/Color.pm
@@ -2,7 +2,9 @@ package Imager::Color;
 
 use Imager;
 use strict;
-use vars qw();
+use vars qw($VERSION);
+
+$VERSION = "1.010";
 
 # It's just a front end to the XS creation functions.
 
@@ -109,6 +111,8 @@ sub _get_gimp_color {
     # or set the palette parameter
     for my $attempt (@gimp_search) {
       my $work = $attempt; # don't modify the source array
+      $work =~ /\$HOME/ && !defined $ENV{HOME}
+       and next;
       $work =~ s/\$HOME/$ENV{HOME}/;
       if (-e $work) {
         $filename = $work;