pricecharts

commit ec27a115485cd0d9736bbd1cf7cfe40fd3c54e7c
parent 46b2a49676aa0d874fdf78d97f53e5481bf4420a
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Sun, 12 Oct 2014 22:36:45 -0600

product_scraper: print error message when email send fails

Diffstat:
M
product_scraper.pl
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/product_scraper.pl b/product_scraper.pl
@@ -149,7 +149,7 @@ print $e_mail->as_string();
 
 my $sender = Email::Send->new({mailer => 'SMTP'});
 $sender->mailer_args([Host => $cfg->{general}{smtp}]);
-$sender->send($e_mail->as_string());
+$sender->send($e_mail->as_string()) || die "Couldn't send email\n";
 
 #for (keys %title_dict) {
 #	print "$_ " if ($title_dict{$_} / $total_titles >= 0.5);