diff --git a/tools/GFX_headers_digest.pl b/tools/GFX_headers_digest.pl
index 4110d3f3..9ee6a01f 100644
--- a/tools/GFX_headers_digest.pl
+++ b/tools/GFX_headers_digest.pl
@@ -12,7 +12,7 @@
 #check to see we have a different path set for SDL_gfx
 #
 
-if ( -d $ENV{SDL_GFX_LOC})
+if ( $ENV{SDL_GFX_LOC} && -d $ENV{SDL_GFX_LOC})
 {
 	warn 'Using user defined location for SDL_GFX and not '.$head_loc;
 	$head_loc = $ENV{SDL_GFX_LOC};
@@ -24,12 +24,19 @@
   
   
   my $file = File::Spec->catfile($head_loc, $header);
-print " ################## $file ####################\n";
 
-   open my $FH, '<'.$file or warn "Cannot find $file please set \$ENV{SDL_GFX_LOC} to point to a different location  : $!";
    
+  warn " Creating Config for: $file at \n";
+
+   my $FH;
+   open $FH, '<'.$file or warn "Cannot find $file please set \$ENV{SDL_GFX_LOC} to point to a different location  : $!";
+   
+   next if !$FH;
+
    grep { $_ =~ /^(\s+|)(\S+) (\S+) (\*|)(\S+)(\()/; print "$5 \n" if $5 } <$FH>;
 
+   close $FH
+
 }