From: Jakob Haufe <jakob@haufe.it>
Date: Thu, 6 Jul 2017 14:32:42 +0000 (+0200)
Subject: Add compatibility for old File::Libmagic
X-Git-Tag: v0.2^0
X-Git-Url: https://git.sur5r.net/?p=pdfstitch;a=commitdiff_plain;h=4f33f09db28b1404add75a99c200e27583aba25b;hp=58d8501abfac8c082d4abd58bb10dbef2addf760

Add compatibility for old File::Libmagic

This allows pdfstitch to run on e.g. Debian Jessie where File::Libmagic
is older than 1.06.
---

diff --git a/pdfstitch b/pdfstitch
index 2a46d0e..d8e0a86 100755
--- a/pdfstitch
+++ b/pdfstitch
@@ -60,14 +60,23 @@ die "$infile is not readable!\n" unless -r $infile;
 if(not ($genmeta or $preview or $crop or $stitch))
 {
     my $magic = File::LibMagic->new();
+    my $mime_type;
 
-    my $info = $magic->info_from_filename($infile);
-    if($info->{mime_type} eq "application/pdf")
+    if($magic->can('info_from_filename'))
+    {
+        $mime_type = $magic->info_from_filename($infile)->{mime_type}
+    }
+    else
+    {
+        # Fallback for File::Libmagic below 1.06
+        $mime_type = $magic->checktype_filename($infile);
+    }
+    if($mime_type =~ "^application/pdf")
     {
         print "Detected PDF, turning on --genmeta\n";
         $genmeta = 1;
     }
-    elsif ($info->{mime_type} eq  "text/plain")
+    elsif ($mime_type =~  "^text/plain")
     {
         YAML::LoadFile($infile) or die "Failed to parse $infile as YAML!\n";
         print "Detected YAML, turning on --stitch\n";
@@ -75,7 +84,7 @@ if(not ($genmeta or $preview or $crop or $stitch))
     }
     else
     {
-        die "$infile has unsupported type: $info->{mime_type}\n";
+        die "$infile has unsupported type: $mime_type\n";
     }
 }