From 7e411a75b3bc4683a757d47606dd6ed3c126975b Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Thu, 26 Oct 2017 18:25:13 +0100
Subject: parse XLSX files

---
 incantesimi/excel_to_incantesimi.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/incantesimi/excel_to_incantesimi.pl b/incantesimi/excel_to_incantesimi.pl
index 2c2a987..d92a4d5 100644
--- a/incantesimi/excel_to_incantesimi.pl
+++ b/incantesimi/excel_to_incantesimi.pl
@@ -1,8 +1,9 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
+use 5.024;
 use utf8;
-use Spreadsheet::ParseExcel;
+use Spreadsheet::ParseXLSX;
 use LaTeX::Encode;
 use Template;
 use Data::Printer;
@@ -38,7 +39,7 @@ my ($input_filename,$output_filename)=@ARGV;
 die "$0 \$input \$output\n"
     unless $input_filename && $output_filename;
 
-my $parser = Spreadsheet::ParseExcel->new();
+my $parser = Spreadsheet::ParseXLSX->new();
 my $wb = $parser->parse($input_filename)
     or die $parser->error;
 
@@ -75,7 +76,7 @@ sub sheet_2_latex {
         command => 'incantesimo',
         @_,
     );
-
+say "going to write to ".$opts{output_filename};
     my $spells = parse_table(
         $wb->worksheet($opts{sheet_name})
             // $wb->worksheet($opts{sheet_idx}),
-- 
cgit v1.2.3