From: Tony Cook <tony@develop-help.com>
Date: Sat, 16 Oct 2010 00:17:45 +0000 (+0000)
Subject: make sure GetDIBits() failures are reported
X-Git-Tag: v0.010~8
X-Git-Url: http://git.imager.perl.org/imager-screenshot.git/commitdiff_plain/925cac26e971993541bc294aaed5367a8968c000

make sure GetDIBits() failures are reported
---

diff --git a/scwin32.c b/scwin32.c
index fa17675..8613f4c 100644
--- a/scwin32.c
+++ b/scwin32.c
@@ -139,6 +139,9 @@ imss_win32(unsigned hwnd_u, int include_decor, int left, int top,
       myfree(line);
     }
   }
+  else {
+    i_push_errorf(0, "GetDIBits() failure %d", (long)GetLastError());
+  }
 
   i_tags_setn(&result->tags, "ss_window_width", window_width);
   i_tags_setn(&result->tags, "ss_window_height", window_height);