Perl5.26以降対応。

diff --git a/plugin/pdf/PDFParser.pm b/plugin/pdf/PDFParser.pm
index 6cbb3ac..1d93eb5 100644 (file)
--- a/plugin/pdf/PDFParser.pm
+++ b/plugin/pdf/PDFParser.pm
@@ -302,7 +302,7 @@ sub l_table {
        my @blocks;
        
        foreach my $cell (@$row){
-               if($#{@$cell}==-1){
+               if($#{$cell}==-1){
                        push(@$cell,Text("--",$self->{tstyle}->{normal}));
                }
                my $block = Block('V',Paragraph(Text($cell,$self->{tstyle}->{normal}),$pstyle),