Improve error reporting.

git-svn-id: svn://svn.tartarus.org/sgt/putty@7135 cda61777-01e9-0310-a592-d414129be87e

diff --git a/icons/icon.pl b/icons/icon.pl
index b9cce7e..f746d69 100755 (executable)
--- a/icons/icon.pl
+++ b/icons/icon.pl
@@ -203,7 +203,8 @@ sub readicon {
                $currbits += $depth;
                if ($x < $w && defined ($pix = $data->[$y*$w+$x])) {
                    if (!defined $pal{$pix}) {
-                       die "illegal colour value $pix at pixel $i in $filename\n";
+                        $pixhex = sprintf "%02x%02x%02x", unpack "CCC", $pix;
+                       die "illegal colour value $pixhex at pixel ($x,$y) in $filename\n";
                    }
                    $currbyte |= $pal{$pix};
                }