From a9cb077d8636288dbf4a0ff8adb5237929d7a820 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 15 Aug 2011 04:19:39 +0000
Subject: [PATCH]  * handle null response return

---
 fb_upload | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/fb_upload b/fb_upload
index beac104..f46e87d 100755
--- a/fb_upload
+++ b/fb_upload
@@ -146,6 +146,9 @@ for my $photo (@photos) {
 				caption => '',
 				filename => basename($photo),
 			       );
+    if (not $response) {
+	die "Upload failure at photo $photo";
+    }
     print " to ".$response->{link}."\n";
 }
 
-- 
2.39.2