X-Git-Url: http://git.cascardo.info/?p=cascardo%2FFinance-Bank-BR-Santander-Spreadsheet.git;a=blobdiff_plain;f=examples%2Fsantander.pl;fp=examples%2Fsantander.pl;h=7c94c1bb6017910bb73895cbe1ac7acc129b3383;hp=64563eafb6f0d7118eb3f753b84cb4025858eda2;hb=1db8d69bd00aad126b120e94876eea78630f2b8a;hpb=14ed6af8e07188102dc430663bafe79a38ef30e1

diff --git a/examples/santander.pl b/examples/santander.pl
index 64563ea..7c94c1b 100644
--- a/examples/santander.pl
+++ b/examples/santander.pl
@@ -33,6 +33,11 @@ if (@ARGV != 1) {
 
 my $spreadsheet = Finance::Bank::BR::Santander::Spreadsheet->new($ARGV[0]);
 
+if (!defined($spreadsheet)) {
+    print STDERR "Failed to parse $ARGV[0].\n";
+    exit 2;
+}
+
 my $balance = $spreadsheet->balance;
 
 my $data = $spreadsheet->statement;